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1.0 flBSTRflCT 

THE DIMNOSTICS FOR THE LAIBO PRINTER ARE OESIGTCD TO EXERCISE 9LL 
AREAS OF THE PRINTER. SIftJLATING HORSE CASE CONDITIONS TO DETECT BOTH 
NECHANICAL AND ELECTRIcAL FAULTS. AQQITIONAL FACILITIES UITHIN T>C 
DIAGNOSTIC raOGRAN Uia AID IN ISOLATION OF ANY FAULT CONDITIOfS 

DETECTED. 

OPERATION OF THE DIAGNOSTIC PROGRAH MIL BE CONTROLLED FRON THE 
PROCESSOR SWITCH fSGISTER OR FTOHAN AVAILABLE CO«gLE,DEyiCE. T»C 
OPERATOR HILL BE GIV&4 AS MUCH CONTROL OVERTHE OTOTION OF THE 
PROGRAH AS POSSIBLE HHILE TRYING TO KEEP THE CONTROL SCHENE SIHPLE. 

THIS DIAGNOSTIC PROGRAH HAS DESIGNED TO RUN IN 4K OR LESS OF HEHCRY 
AND TO K COHPATIBLE HITH ACriSHD XXDP. 

2.0 REQUIRlHENTS 



a. I EOUIPHEMT 



THIS 



AGNOSTIC MAS WRITTEN TO RUN ON AU NOOELS OF THE POP-11 

r«nw»-i. . PRINTER USING EITHER A STANDARD PARALLR 

SERIAL INTERFACE. HULTIPLE LAIBO'S. ON 



mm -um IT urn 

INTBIFACE or a KLll/DLll 




If %n NON-1 

itK. uHAou un THE CONSOLE DEVICE, vfw«^ ,n^m,un^^ 
TAG AREA OF THE PROGRAH (STARTlfiG AT LOCATION 1100). 




A 5TAM 
AND - 
UHEN RUNNING 
fl HhRDUhRE 
FOR EIT»« 
THE COHHON 



2.2 STORAGE 

THIS PROGRAH USES HOST OF HK OF HEHORY UITHOUT AFFECTING THE AREA USED 
BY THE ABSOLUTE LOADER. 



2.3 PRELIHINARY PROGRAHS 

ALL APPLICABLE PDP-11 DIAGNOSTICS SHOULD BE RUN SUCCESSFULLY ON THE 
PROCESSOR. 



FOl 
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3.0 LOWING PROCEDURE t INITIALIZATION 

LOAD THE LA180 OIRGNOSTIC PROGRAH FOLLOWING NORNAL PROCEDURES. 

IF A HAROMARE SWITCH REGISTER DOES HOT EXIST OR ALL SWITCHES ARE 

WCN USING THE SOFTWARE SWITOjJ^XSTER BE SlIS TO LOAD LOCATION I7i 

REFER TO SECTION 5.5 FOR INTERFACE CONTROL INFORMATION. 

REFER TO THE TEST ADDRESS TABLE IN THE PROGRAM LISTING FOR DETAILS ON 
CHANGING THE PRINTING TEST SEQUENCE OR DaETING TESTS FROH THE 
DIAGNOSTIC. 



4.0 STARTING PROCEDURES 

STARTING ADDRESSES: 

200 = gErCRAk_START: 

ItOR INTERVENTION TESTS THEN ENTER PRINTING TEST 
FOR USE ON SINGLE-PARALLEL INTERFACE ONLY. 

bOO = 

PRINTING TKT SEQUENCE DIRECTLY SKIPPING OPERATOR 
1 TESTS. 



ION 

604 a GO DIRECTLY TO CONSOLE TERMINAL KEYBOARD CONTROL - SELECT 
TEST. 

STARTING AT 200 WILL RUN THE ENTIRE DIAGNOSTIC PACKAGE. THE PROGRAM 

MILL FiRSIiXKlffL THE 

PRINTING TSTSVJCNCC l> 
bOO (TIC 






FROM tHE SWITCH'R^ISTER. AUO, BY PLACING TIC HALT AND SELECT TEST 



INITIALIZATION OF THE PROGRAM. 



,rART THE DIAGNOSTIC PRQCRRM; SET THEJ€§I''ED STARTING ADD^SS IN 
THE SWITCH REGISTER AND OB^EA LOAD MOR&SrSEJ THE SWItSTrEGISTER 

THE 



TO START 
THE SHIl 

OPTIONS S '^SIRK 7kr'gcTI0N""s.l). AteTKSsr'sfARTT' 
DIAGNOSTIC PROGRAM Wia NOW PSIn IN THE NA^ SELECTOJ. 
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5.0 OPERATING PROCEDURES 

5.1 SHITCH REGISTER CONTROLS 

THE FOaOUING. BASIC CONTROL FUNCTIONS RRE AVAILABLE THROUGH THE USE 
OF THE SHITCA REGISTER. IF A HAROUARE SWITCH REGISTER DOES NOT EXIST 
OR ALL SWITCHES HERE SET UP BEFORE STARTING THE DIAGNOSTIC, THE 
PROGRAM HILL USE THE CONTENTS OF LOCATION 176 AS THE VALUE 6f THE 
SWITCH REGISTER. REFER TO SECTION 5.3 FOR DETAILS ON 5SR CONTROL. 

SHITCH POSITION FUNCTION 



15 1 (UP) STOP ON ERROR 

0 (OWN) CONTINUE ON ERROR 



IH I (UP) LOOP ON TEST 

0 (OWN) NORMAL OPERATION 



13 1 (UP) INHIBIT ERROR TYPEOUT 

0 (DUN) NORHAL OPERATION 



11 MANUAL T IMING - OVER ALL 

PRINT SPEb TIMING 



10 1 (UP) BEa ON ERROR 

0 (OUN) NORMAL OPERATION 



OS 1 (UP) SINGLE CHAR - SCOPE ROUTINE 

0 (DUN) FULL LINES 



06 1 (UP) HALT & SELECT TEST 

0 (DUN) NORMAL OPERATION 



07-00 

05-00 
Ob-OO 



• COLUMNS AT START UP. 
TEST SELECTION DURING OIAG. 
CHAR SELECTION FOR SCOPE ROUTINE 



HOI 
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5.1.1 SWITCH 15 - STOP ON ERROR 

uiTH THIS swrrcH UP (1). Tm PROORRn hill hplt or uait for a keyboard 

ON ANY OCTECTED ERROft. UHENOOUN (0), THE PROGRRN UILL CONTINUE ON 
ERROR IF POSSIBLE. 

5.1.2 SWITCH 14 - LOOP ON TEST 

UITH THIS SWITCH UP (1). THE PROGRRN WILL CONTINUE TO LOOP ON THE 
CURRENT TEST UNTIL tAiS SWITCH IS PLfl^QQkW (0). AFTER RETURNING 
THIS SWITCH TO THE DOWN tO)TOSlTION. THTTESr WILL CONTINUE NORNAL 
OPERATION AT THE COHPLETIQNOE THE CURfiNT TEST. THIg. WHENEVER THIS 
SWITCH IS DOWN (0), ThTpROGRWI WIU CONTINUE NO^ OPERATION. 

5.1.3 SWITCH 13 - INHIBIT ERROR TYPEOUT 

WHENEVER THIS SWITCH IS IN THE UP (1) POSITION, ERROR TYPEOUTS UILL 
NOT OCCUR. 

5.1.4 SWITCH 11 - MANUAL TIMING 

THIS SWITCH WILL BE USED TO NANUAUY TINE THE OVERALL PRINT SPEED OF 
THE LA180 PRINTER IF A CLOCK OPTION DOES NOT EXIST. 

5.1.5 SWITCH 10 - BELL ON ERROR 

PLACING THIS SWITCH UP (1) WILL CAUSE THE CONSOLE (IF AVAILABLE) TO 
RING A BELL WHENEVER AN ERROR CONDITION IS DETECTED IN THE LAISO 
PRINTER. 

5.1.6 SWITCH S - SINGLE CHAR/FULL LINES CHAR 

THIS SWITCH WILL BE USED TO SELECT WHETHER TO SEND ONLY A SINGLE 
CHARACTER OR FULL LINES OF CHARACTERS TO THE LA180 PRINTER DURING TEST 
&1 ONLY. 
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5.1.7 SWITCH 8 - HflLT & SELECT TEST 

THE PROGRfW UILL HALT UHENEVER THIS SUITCH IS PLACED IN THE UP (1) 
POSITIOW. AT THAT TIME. SET THE DESIRED TEST NUfCER IN THE PROPER 
POSITION IN THE PROCESSOR §MITCH REGISTER. 

TO START THE NORMAL TEST SEQUENCE HITH THE SELECTED TEST. PLACE THE 
HALT AND SELECT TEST SUITCH DOWN (0) THEN DEPRESS THE CONTINUE SUITCH. 

TO RUN A SELECTED TEST ONCE AN D HALT, LEAVE THE HALT AND SELECT TEST 
SUITCH UP (1) AND DEPRESS CONTINUE. THE PROGRAH UILL EXECUTE ONE 
COMPLETE P9BS OF THE «4CTQ)TE£r. THEN HALT UAITING FOR ANOTifR TEST 
SELECTION. TO HALT TlOwSWMWftiNG EXECUTION OF THE SaECTffi TEST, 
PLACE THE HALT & SELECT TEST SUITCH DOUN (0) AT ANY TINE. THE PROGRAN 
UILL HALT AT THE COHPLHION OF THE CURRENT OPERATION AND UAIT FOR 
ANOTHER^EST SELECTION. 



5.1.B SELECTION OF NUMBER OF COLUMNS 

THISESUITCHES UILL BE UHEN THE PROGRAM IS FIRST STARTED TO INPUT 
ThI DESIRED. NnXinUH NUN»I OF COLUMNS THE DIAGNOSTIC IS TO TEST. THE 
NUMBER SET WSJ BE IN OCTAL AND BE EQUAL TO OR GREATER THAN ? AND LESS 
THAN OR EQUAL TO 132(10). IF nc SUITCHES ARE NOT SET UITHIN THESE 
SET LIMITS. THE PROGRAN UILL DEFAULT TO TESTING 132(10) COLUMNS. 
THUS, LEAViNG THESE SUITCHES DOUN (000) THE PROGRAM Uia AUTOMATICALLY 
TEST T>€ FUa 132(10) COLUTttS. 



5.1.9 TEST SELECTION 

THESE SUITCHES UILL BE USED TO SELECT A DESIRED TEST WHENEVER THE HALT 
AND SELECT TEST SUITCH IS USED TO HALT THE DIAGNOSTIC PROGRAM. 



JOl 

WiCYll 27(100b) Ol-nflR-77 14:45 PftGE 8 
-77 15:08 



PAGE 8 



5.2 CONSOLE TEfVlirML - KEYBOfM) CONTROL 

MeCVER A CONSOLE TERHINflL IS DETERHirCD TO BE AVAILA8LE BY THE 

KEYBWn RT ANY TINE Hia CAUSE THE PROGRAM TO STOP AND PRINT THE 
FOLLOUING rCSSAGE ON T»C CONSOLE DEVICE: 

SELECT TEST •: 

TYPE ANY LEGAL TEST NUMBER FOLLOMED BY ONE OF THE FOLLOHING CONTROL 
CHARACTERS AND A CARRIAGE RETURN: 

CHARACTER FUNCTION 

, (PERIW) RUN TEST ONCE & RETURN TO TEST SELECTION 

L LOOP ON SELECTED TEST 

S START SEQUENCE UITH SELECTED TEST 

THE L AND S NAY BE EITHER UPPER OR LOUER CASE BUT TEST NUNBERS MUST 
ALUAYS BE ENTERED AS 2 DIGIT NUHBERS. 

HILL BE TYPED ON THE CONSOLE DEVICE: 
• COLUMNS s 

ENTE^^TH|^Pmjm^Mf^THEN ASK FOR A TEST SELECTION AS DESCRIBED 

TO CHANGE THE NUMBER OF COLUMNS HHEN WAITING FOR A TEST ,»£CTION. 
TYPE A CONTROL-C FOUOHED BY A CARRIAGE RETURN. UHILE INPUTTING A 
TEST SELECTIONOR COUm NUMBER THE RUBOUT (DO.) KEY NAY BE USED TO 
OELETEINCOWECT DffRIES. AT PLL TIMES gjlTCH REGISTERCONTROL MILL 
STILL BE SfECTIVE.^VEN IF USING CONSOLE TERMINAL KEYBOARD CONTROL. 
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5.3 DYNW1IC SOFTUME SUITCH REGISTER CONTROL 

i«€NEVER R CONSOLE TERtllfM. IS RVRILABLE RNO R HRRDURRE SUITCH 
REGISTER IS NOT RVRILiaLE (OR ALL_aiITCHES VEK UP UHEN THE PROGRRN 
^Ti^K MfCH ^STCT^WTROL^ RECOGNIZE THE FOUOHING DYNW1IC 

TYPING ft CONTROL-6 (Ba) RT RNY TINE DURING PROGRRM EXECUTION. EXCEPT 
UHEN UAITING FOR R TEST OR COLUMN NUNKR SQIECTION. UILL &AUSE THE 
DIRGNOSTIC TO STOP THE CURRENT TEST RNO TYPE THE FOLLOHING HESSRGE ON 



suR = myiCK NEu £ 

UHERE XXXXXX IS THE CURRENT CONTENTS OF THE SOFTWRRE SUITCH REGISTER 
(SSR) IN OCTRL. THE SOFTURRE ^TROL ROUTINE UIU T>CN RURIT OPERRTOR 

4) CONTROL-U (tU). NO CHECK IS HflOE FOR cArRRCTER LE6RLITY. IF THE 

THE SWITCH SETTING. 

TERHINRTES T)€ INPUT STRING UITH R <CR> OR <LF> OCPOCING ON THE 
TYPED PRIOR TO THE TERHINRTOR BEFORE R CHRNGE TO THE SSR HILL OCCUR. 

<CR> IS THE ONL " " " 

CHRNGING THE L 
THE PROGRRH UILL 
5.2. 

IF R tU IS TYPED RT ANY POINT IN THE INPUT STRING PRIOR TO THE 
TERHINRTOR. THE INPUT VRLUE UILL BE DISREGARDED RNO THE PROffT NESSRGE 
UILL BE RE^INTEO. 
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5.4 ERROR REPORTING ON PRRRLLEL INTERFACE 

IF R CONSOLE TERNINRL EXISTS AND THE INHIBIT ERROR TYPEOUT SUITCH IS 

MESSAGE >>>>>>>>>> 



CONSOLE oev: 

TEST tXX, PCsXXXXXX, ERROR IXXX, 




FOR AOOITI „ 
LISTING. 



PROGRAM 



THAT OCCURRED. 

INFORMATION ON ANY ERROR CONDITION, REFER TO THE 





THEN REFER TO TIC PROGRAN LISTING TO OETERHINE THE TYPE OF ERROR THAT 
LISTING. 



5.5 INTERFACE CONTROL 



UHEM INITIAaY LOADED 
A 



WTIC 



) TO RUN 
ITY INTO Li 



THIS DIAGNOSTIC. ™, ww™. . 

SINGLE LA180 An A PARALLEL INTERFACE 

AND RUNNING TEST 77. 
PARALLEL INTEjlFACES BY 
SEL^TIHC AND RUNNING TI 
IS CONTROLLED BY THE 
LOCATIONIS PRESET TO 
TO BE TKTED. T>C A 
(IF ANY) SHOULD BE DEI 

BEEN PRESET TO 177510. 

INTERFACE (IF ANY) SHOULD BE DEPOSITED 
VALUE HAS BEEN PRESET TO 17SfclO. 




. THE NU . 
pTYJN^^p 

INTO LbS?foN 



IS PRECONDITIONED TO TEST A 
AS 177510. THE 

CTING 

ONEO TO RUN ON 




INTO LOCATION SERSU OR BY 
INTOFACES TO BE DRIVEN 
NUHLP/ THE VALUE IN THIS 
F NORETHAN 1 UNIT IS 
_ S^PARALLEL INTERFACE 
FSffiZT THK VALUE HAS 



THE ADDRESS OF THE LOUEST ADDRESSED SERIAL 
INTO LOCATION FSTSAD. THIS 



b.O TEST DESCRIPTIONS 



b.l OPERATOR INTERVENTION TESTS 

E)(ECUTEO ONLY ONCE EACH UHEN THE DIAGNOSTIC IS FIRST STARTED UP. A 
DETAILED DESCRIPTION OF EACH TEST FOLLOWS: 



mi 
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; KEYBOARD OR THE CONTIM/E SWITCH 
~ ISAVfllLflBLE TO TEST THE NEXT 




b.1.1 TEST 00 - INTERFACE & CONTROL TESTS 

THIS TEST IS DESIGNED AS A COHNAND DECODE AND CONTROL 
PARALia-INTERFACE TEST AND INCLUfS CtCCKOUT OF T»€ PRINTER INTERRUPT 

ON THE 



ON THE NO COfCQLE 

CONDITig 
NON-EXPEI 

ON THE CONSOLE DEVICE IF AVAILABLE. 
REPORTING.) 

POICR SHOULD BE OFF ON THE LAltt 
»WWW»rmL FIIBT TBT THAT THE 
NOT READY HITH PWD) OFF. AN XI 
PRINTSi PONER TOBE TURNED ON. 
PAPER IN THE PRINTErAMp^ntlNI 
AGAIN OCCK THAT THTmfi SIT 

€ PfllNTrajS READY. 
._«TORroRtt A PAF 

'tha? toTIrhorIit 



'ORE STARTING THIS TEST. 
" BIT IS SCT AND THE PRINTER 





_ A« THE PR 
HILL mr INFOI 

Ufa m CHECK 

W?IffrE! 

'"im ' 

IINTER 



THE 

_ IS 

_ THP ASK FOR THE 
AND mE SURE THERE IS 
TI€JISGH0STIC HILL 




ND|T|OI 

or flNDPRW . . 
fTORE T« PRINTER 
T)€ ERROR CONDITIOH 



PJOR TO 
l€ 'f^JR BIT 
X m HILL 
€ PAPER 
t i ^i^WSTIC 
HLJY. THE 
TO ON-LINE BY 
HAKE SURE THE 



PRINTER IS SET TO OH-LINE BEFORE CONTINUING. THE PROGRAH HILL TEST TO 
SEE IF THE ERROR BIT IS CLMCD AMD THE PRINTER IS READY. 

THE LAST HALF OF THIS TEST HILL BE PERFORNED AUTONATICAUY UITHOUT 




SET HITHIN A 
THAT THE PR^ _ 
INTERRUPT AT ALL PRl 




AMOUNT OF THE. THE FINAL TEST HILL CHECK 
HILL NOT INTERRUPT ABOVE PRIORITY LEVEL 3 AND HILL 
LEVELS BELOU LEVEL 4. 



NOl 
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b.1.2 TEST 01 - TOP OF FORM SWITCH TEST 



PPGE 12 



THIS TEST CJCCKS 9LL POSITIONS OF THE TOP OF FORM SWITCH. THE PHOQPfm 
HILL PRINT INSTRUCTIONS FOR TH| N^T SETTING OF THE TOP OF FORM SWITCH 
ON THE CONSOLE TmiNRL (IF AVRIUSlE) WC THEN WRIT FOR THE OPERATOR 
TO COMPLETE THE ACTION. AFTW SETTINC THE SWITCH. DEPRESS TIC SPACE 
BAR OF Tie CONSOLE DEVICE (OR OINTINUE ON m PRO^SOR I? NO CONSOLE 



DEVICE EXIgreTTO TECT THAT SWITCH POS!tIOH. AFTER CHECKING fiLL 
POSinOfC THE PRINTER OUTPUT CAN BE VISUAUY V&IFIED. A LINE OF PLL 
DA9CS IS PRir^ AS A STARTING POINT AND T«N LiNES ARE PRINTED TO 
irOICATE THE PROPQ^ SPACING (IN INCH^) FROM THE PREVIOUS LINE TO THAT 
LINE. 

EXAMPLE: 



4.0 INCH FORM FEED 



6.1.3 TEST OS - PRINT SPEED TIMING TEST 



THIS TEST IS DESIGNED TO TIME THE LA180 FOR ONE FUX 
SWIRL PATTERN IS PRINTED. TO_THE SELECTED MAXIMUM 
IF A LINE CLOCK OR A PRQ^AMNABLE CLOOC OPWm 
AVAILABLE BY THE PROGRAM^ iTwia K USED TO 
PRINTdST when NEITHER C^Og^^ION IS AVAI 




IF IT IS AVRI 
ONE FULL MINL _ 




LL BE 
^ J OF T] 
imi£ PRINT 
DEVICE (IF 




IS 0 
AUT01 



MANsi^^. 



TE *5^ILE ft 
OF COLUMNS. 

mmd TO BE 

'ILY TINE THE 

, TIMli^jG Hia 

ON THE CONSOLE DEVICE 
r iMING IS USED, AT TIC END OF 
SPEb Wia BE PRINTED ON THE 

AVAILABLE). REMEMBER, THE 

__ITE0 TO THE NUMBER OF COLUMNS BEING 
PRIHTQ: ALSO, THE CONTENTS OF ONE LOCATION IN MEMORY MILL HAVE TO BE 
CHANGS if tAe line frequency is 50 HZ. AND A CLOCK OPTION IS BEING 
USED FOR TIMING. 




b.2 PRINTING TESTS 

miM' 

HEADER WILL irCICA 

mmnin mm, % MMmwFt 

LINE AND THE " " 

HOHEV^. THAT 

Jm PRINTER ^ _ - 

CONDITION OF THT ''READY- AND 'O^KT RETURN LINES 

DETAILED DESCRIPTIONS OF EACH TEST PATTERN APPEARS IN 
OF THE FOLLOWING TEST ROUTINES. 



TEST PROGRAM 






THE CURRENT 

TO 



rRiF] 

DESCRIPTION 



B02 
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b.2.1 TEST 20 - OftTfl TWWSFER PRTHS TEST 



THIS TEST IS DESI6MED TO TEST THE DftTfl LINES TO AND THROUGH THE 
INTERFACE AND TO nc LA180 PRirfTER. AN flLTERN«TING BIT PATTERN IS 
SEtff UHICH HILL PRINT RLTGRNRTING i'S MO U'S IN R CHECKERBOARD 
PRTTEm TO 1\€ HAXINUn COLUm WIDTH. THE STARTING CHARACTER FOR EACH 
LINE IS ALTERNATED PtC A TOTAL OT lb LINES ARE PRINTED. 

EXAMPLE: 

«U«U*UftU «u«u 

iJ«UtU«U« UtUft 

«u«u«u«u «u«u 

liftU«U«U« u«u« 



8.2.2 TEST 21 - HEAD POSITIONING TEST 

THIS TEST CHECKS THE CARRIAGE RETURN FRON ALL EVEN NUNBERED COLUWS 
AND THE SPACING Jf THE SOLENOID HEAD FROM THE LEH MARGIN. HOWEVER, 
THE PRIMARY PURPOSE OF THlSTEST IS TO TEST THE SOLENOID HEAD POSITIOft 
DECODER FOR PROPER OPERATION. 

THE TEST PRINTS A FULL LIN| OF ALTERNATING O'S AND SPACES. STARTING 
WITH A 0. AT THE&C OF THE LINE TH| PRINT HEAD IS RETURNED TO TJ€ 
LEFT MARGIN WITH A CARRIAGE mm. mtjPf^ ARE THEN FILLED IN BY 
SPACING THE PRINT ICAOOUT FROM THE LEFT mfiCIN TO THE FIRST SPACE. 
PRINTING AH -r, AND EXECUTING A CARRIAGE RETURN. THIS PATTERN I§ 
REPEATED UNTIL T»C LINE ISCOMPLETED. CHECK TO SEE THAT AU X'S ARE 
IN THE MIDDLE OF THE SPACE BETWEEN THE TWO ADJACENT ZEROES. 

EXAMPLE: 

OXQXOXOXDXOXOXOXOXOXOXOXOXQXQXQXQXOXOXOXOXOXOXQXOXOXOXOX 



b.2.3 TEST 22 - BACKSPACE TEST 

THIS TEST IS OeSIGNQ) TO C»CCK THE BACKSPACE FEATURE OF THE LA160 
printer: TWO LINES OF X'S INTERSPACED WITH Qf^S WILL BE PRINTED BY 
PRINTING A SLASH. EXECUTING A BAOCSPA^. AND THDl PRINTING A BACKSLASH 
TO COMPLETE EA6h X CHARACTER. A AaXIMUM OF 127 COLUMNS WILL BE 
PRINT© Iy THlSTEST. 



EXAMPLE: 



X-X-X-X-X-X-X-X 
X-X-X-X-X-X-X-X 



CDS 
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6.2.4 TEST 23 - OMWCTER GENERATOR TEST 



THIS TEST CHECKS THE SPACE PLL 94 PRIhTABLE CHARACTERS (ASCII COOES 
OHO TO 17b) BY PRINTING A SINGLE LINE, 30 CHARACTERS LONG, OF EACH 
CHARACTER. 

EXANPLE: 

IMIIIIIIIIflllltltlllllllllll 



nnnnnnnnnnfM¥Mmv¥¥innnAAAAAAA 



6.2.5 TEST 24 - NON-PRINTAa£ CHARACTER TEST 



THIS 
CHARAC 



BUFFER. THE TEST WITtliU 

™* ONLY xlilHES I — 
PROOUCCP^ TMt GROUP OF 




I^IBQHANDLING OF NOft-PRINTABLE 
FULL MNGEIf the CHARACTER STORAGE 

■ ^ PATTERN. 

SET. I^ 

IRL PATTERN IS 

IIFTED (IN 




HITHIN TIC LA180 Hia BE USED. 



EXAWLE: 



•S34»()»>,-./0' 




«.is>9ar 



b.2.6 TEST 25 - BUFFER TEST 



LAlio^OR pK%?WE&) 
PRINT HITH 2 BLANK LlC" 
LINES PRINTEOIiILL 

coLum uioth. the m 



ACCORDINGLY 
16 E'l Mil 




HILL 



0, 16 E'S MILL I 
SENT TO SCI 



THE CHARACTER STORAGE BUFFER IN THE 
THIS TEST HILL PRODUCE FOUR LINES OF 
FIRST AND SCOND LINES. THE 
" HECK OF ffilNTING THE CORRECT 
. FOR 132 COLUNNS BUT HILL BE 
UIDTHS. BEFORE THE FIRST LINE 
THE BUFFER. THEN A nSOUT (177) 
~ Hia CLEAR THE BUFFBJT BEFORE 




EACH_QF Tl€_LAST,THRK LINES. IS PRINTED AND KFORE. THE BLANK LINES 
BE FILLED HlTHlALL rS^, THUS, AN 



6ETUEEN 



THE FIRST AND SECOND PRINTED LINES. THE CHARACTER BUFFER WILL 
) WITH ALL E'S. THUS. AN E PRINTED ANYWHERE IN THE TEST 
PATTERN INDICATES AN ERROR. 



DOS 
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PP-*^ IS 

THE FIRST LINE UILL CONTAIN 100 ONES. X THREES, PND 2 TUOS. THE 
a. «C 3 IN GROUPS (F 10 CHRRfCtEK (Ekl^T tNE Fli^ O^ 0^ 
COLUMN. 

COLUMN 30 UOULO BE 0 

3 
0 

COLUNN 132 UOULO BE 1 

3 
2 

EXAMPLE : 

llllllllllllllllllllllUllillU 322 



b.Z.7 TEST 2b - OVERPRINT TEST 

THIS TKT IS OeSItfjED TO CtCCK THE SPACING ATC REPEATAftE PRINTING 
CHARACTERISTllS^ OF THE ffllNTER. FOUR LINES OF CHARACT^ ARE EACH 

.THE 
LINE. 



OV^IN^^^gO^IHg. THE ROUS CONSIST OF THE FOaOUING CHARACTERS 



ROU 1 J - SP 

Rou 2 SP - a 

ROU 3 H - SP 

ROU H SP - I 

THE RESULTING PATTERN UILL BE A CHECKERBOARD. PATTERN ATC THE 
OVERPRINTED CHARACTER SHOULD BE ALIGNED PROPERLY UITH THE INITIAL 
CHARACTERS. 

EXAMPLE: 

EEEEEEEEEE 

aaaaaasaaa 

MnnnHMNHMN 

iiiiittiii 



EOS 
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b.a.B TEST 27 - MULTIPLE LIME FEED TEST 
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THIS TEST CHECKS THE LIME FEED Cft PflBlLl TY OF THE PRINTER BY SENDING 
VARIOUS GROUPS OF LIME FEEDS IMTERSPftCED WITH REFERENCE LirCS. THE 

(M9CS flS REFTOCC POINTS FOR HEWING. THE Flf^T RND L^T BEING 132 
SSmKTERS long (NAXINUH) MTTHE HitoLE LINES BEING 30 CHWflCTERS 



LONG. 



EXAMPLE: 



01- 
02- 



04- 



08 

^> 7 BLANK LIMES 

/ 

/ 

IS 

> 15 BLANK LINES 

/ 

/ 

32 

> 31 BLANK LINES 

/ 

/ 

00 



FDi 
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6.2. g TEST X - RIBBON FEED TEST 



P«GE 17 



THIS TEST CHECKS THE RIBBON FEED HECHANISN BY PRINTING fl SINGLE COLUNN 
0' 2H AltiSOF X'S DOWN THE L^T HRTO NflRGIN OF THE PflGE. nSbULVf 
Ch!ECK FOR raOPER OPERATION OF THE RIBBON FEED NECHRNISH DURING THIS 
TEST. 

EXflMPLE: 

X 
X 
X 



X 
X 
X 



6.2.10 TEST 31 - BELL TEST 

THIS TEST IS DESIGtCD TO C»€CK THE BELL CODE LOGIC AND THE TIMING 
SEQUENCE OF THE HICRO LOGIC. THE TEST HILL PRINT "BEU TEST- 
INTERSPACED UITH BELL COOES BETWEEN CHPRACTERS AND THE FOLLOWING 
CARRIRGE RETURN RND LINE FEED FUNCTIONS. A TOTAL OF FIVE BELLS WILL 
BE SOUNDED. THIS TEST HILL ALSO AUDIBLY IfCICATE AN END OF A CONPLETE 
PASS THROUGH THE PRINTING TEST SEQUENCE. 

EXAMPLE: 

<BEL> BELL <BEL> <SP> TEST <BEL> <CR> 
<BEL> <LF> <BEL> <CR> 



GD2 
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b.3 OPTION TESTS 

b.3.1 TEST 50 - SECONDPRY CHRRACTER SET OPTION 

THIS TEST IS DESIGNED TO EXERCISE THE SECONDRRY CHRRRCTER SET OPTION. 
TESTING THE RBILITY TO SELECT EITHER CHARRCTER^T UNQP SOFTUMS 
^^NTR^ uffHiN^A^^T^ TESTING THRT THE CORRECT CHRRACT&S RRE 

A NUMBER IS PRINTED AT THE LEFT MARGIN INDICATING UHICH CHARACTER SET 
IS BEING PRINTED. II INDICATES THE PRINARY SET RND I? INDICRTES THE 
SECONDARY (APL) SET. FOLLOUING THE NUNBER THE APPROPRIATE CHARACTER 
SET. DISTINGUISHED BY THE ABSENCE OR PRESENCE OF THE 8TH BIT IN ERCH 
CHAftACTER , IS PRINTED IN ITS ENTIRETY. 

IF LESS THAN 98 COLUMNS ARE BEING TESTED, ADDITIONAL LINE(S) UILL BE 
PRINTED TO COMPLETE EACH CHARACTER SET. 



EXAMPLE: 



•1= !-•!«'(),.. ETC.. PRIMARY CHARACTER SET... 
12= !••«§>*'()... ETC.. SECONDARY CHARACTER SET... 



H02 



HfiirCEC-U-OZLflE-B flACYll 27(](J0b) Ol-fWR-T? IMiHS PflGE 19 
DZLfiEB.Pll 28-FEB-77 15:08 



b.4 riPINTENPNCE AIDS 



PAGE 1«J 



THESE TESTS ARE PROVIDED AS ADDITIONAL DEBUGGING AND EXERCISING AIDS 
FOR THE LA180 PRINTER. A DETAILED DESCRIPTION OF EACH TEST FOLLOUS. 



b.4.1 TEST 60 - LIFE TEST 

THIS TEST RUNS CONTINUOUaV At€ IS RUN AS AN INDIVIDUAL. SPECIAL TEST. 

CONTINUOUSLY. THE SECOND LINE OF EACH CHARACTER IS OVERPRINTED H 
TINES TO CONSERVE PAPER. AT THE ^IHPLETION OF EACH PASS THROUGH THE 
ENTIRE PRINTAiLE CHARACTER SET, Vk PASS COUNT UIU BE PRINTED ON THE 
LAIBO. 

TINE FOR A COHPLETE PASS, WITH 132 COLUMNS IS APPROXINATELY 10 
MINUTES. 

EXAMPLE: 

AAAAAAAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAAAAAAA 



6.H.2 TEST 61 - SCOPE DRIVE ROUTINE 



lt€ PURPOSE OF THIS TEST IS TO PROVIDE THE OPERATOR UITH A SHORT BUT 

: DRIvra ROUTIfC FOR US IN TROUPE SHOOTING THE 

ACE CONTROL LOGIC UITri AN^ILLIS^PIT 



COHPREHEWSIVE 
PRINT& AND ~ 




SUITi 
UHATI 
OR 
A 



ING ON 




SETTING OF THE 
(SUITOj 09) 
TER IS SET IN THE 




TCH OF THE 



WS TEST WILL EITHER CONTINUALLY SOC 
_ SMITCH ICGI^ TO THELINE PRINT&, 

^ T>C QUIRED CHARACTBt. AND DEPRESS CONTINUE. TO STOP 

CONTlNyOffiLYlvX£^ SlAC^jM^FlLL LINE SUITCH UP AND THE 
Uia iiSTuAITiNG FOR A CHARACTER ^CTION. UHEN SENDING 
INDIVIDUAL CHARACjraS OR IF SENDING NON-PRINTABLE CHARACTERS, NO LINE 
FEEDS OR CARRIAGE RETURNS UIU BE INSERTED BY THE PROGRAH. 



102 
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b.H.3 TEST 62 - LINE PRINT TEST 

TEST fVC TYPE ANOTHER CHRRACTER. RN ERROR NESSRGE Hia BE PRINTED ON 
THE LA180 IF THIS TEST IS SaECTED Rt€ R CONSOLE TERNINRL DOES NOT 
EXIST. 



b.H.H TEST b3 - CHRRRCTER PRINT TEST 

THIS TEST LORDS UHRTEVER CHRRRCTER IS TYPED ON THE CONSOLE KEYBOARD TO 
THE LA180. CHRRRCTER BY CHRRRCTER. RLL TYPED CHARACTERS ARE ECHOED TO 
THE CONSOLE DEVICE AS.THCY ARE LOADED TO THE LAIBO. EXTRA CARRIAGE 
R ETURN S 
OVERPRir 
DOES N01 



; OR Lire FEEDS RRE ECHQCD TO THE C^)NSOLE DEVICE TO AVOID 
NTING LirCS. Tf THK TEST iTgLlCTED Ate F^ofSOLE TERHINAL 
T EXIST RN ERROR HESAGThILL KPRINTED ON THE LAIBO. 



6.M.5 TEST bH - SELECTED PATTERN PRINT TEST 

THIS TgT REPERTEDLYLQRDS THE LR18Q PRINTS BUFFER WITH A STRING OF 
DATA rBIDINQ IN^ORRST THIS STRING IS StMLISHED BY TYPING ON THE 
CONSOLE KEYBORRD AND TERHINATING TIC STRING BY DEPRESSING EITHE^ 
O R CTL-^. WIHTING THEN BEGITS AUTOHRTICALLY. PRINTING 
INTERRUPTED BY OEPR^ING CTL-SPRS MmPON R NEU PRTTERN 



AND TERHINATING TIC STRING BY DEPRESSING EITHER CTL-A 

- - CAN BE 

ENTER ED. IF C T L-R OR CTL-BIS TIC FIRST KEY DEPRESSED, PRINTING OF 
THE INTERRUPTED PRTTERN MILL RESUME. 

IF R PRTTERN OF CHARACTERS IS TO BE 

PRINTED HILL BE RBC 
COLUNNS). 

NOTE THAT NO PRINT CONHRND CODE (LF.CR, OR FF) IS USED HHEN ENTERING 
PRTTERNS TO BE IKRTED BY CTL-B. 

OPTIONAUY PRINT CONNANDS CAN BE ENTERED INTO THE CHARACTER STRING TO 
^^tFrHIN^^By'oEP^I^ ^^L^^S^Y^ ACTIONS. SUCH A STRING SHOULD 

NOTE THAT THE STRING IS STORED RT THE EK OF ALL DIAGNOSTIC COOING 
THEREBv ALLOWING IT TO BE OPEN-ENDED IN LENGTH (UP TO THE NEHORY 
LIMIT). 




TO STOP PRINTING AND ENTER A NEH STRING DEPRESS CTL-SPACE. TO SELECT 
A NEU TEST DEPRESS OELETE/RUBOUT. TO CHANGE THE NUMBER OF COLUMNS 

DEPRESS CTL-C. 



JD2 
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.ENMLE 9BS,Pm 

»OISITflL EQUIPtCNT CORP. 
«fMYN(tfD, mSS. Q17SH 

«PROGmH BY ROBERT BRKER 

tTHIS PROGRRH MRS RSSETOLED USING THE POP-11 MRIKOEC SYSmC 

•PRCKRGE (HRZN0EC-11-OZQRC-C3), JRN 19, 1977. 

ft 

.S8TTL OPERRTIONRL SUZTCH SEHINGS 

USE 



:ft 




;« 


SWITCH 


;ft 
;ft 


~ir' 


;f 


14 


;« 


13 


;« 


12 


i* 


'? 


;ft 




;ft 


8 


;» 


07—00 


;« 


OS— 00 


;» 


Ob— 00 



INHIBIT ERROR TYPEOUTS 
NRNURL TIHIN6 

^ oifl^FUU. LINE - SCOPE ROUTINE 
HRLT I SELECT TEST 

• COLUMNS RT START UP 

TEST • SELECTION 

CHflR SELECTION FOR SCOPE ROUTINE 



ftft* SET 9LL SWITCHES UP BEFORE STARTING THE PROGRRN TO USE THE 
SOFTHflRE SWITCH REGISTER CONTROL. HflKE SURE LOCATION 000176 
CONTAINS THE OESIREO SWITCH SETTINGS BEFORE STARTING. 
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.SBHL BASIC DEFINITIONS 



K02 



001100 



000011 

000012 

000015 

OOQgOO 
177776 

17777M 
177772 
177570 
177570 



000000 
000001 
000002 
000003 



000006 
000007 

000007 



000000 

m& 

000140 
000200 

000340 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
O0XS2DO 
000100 
000040 
000020 
000010 
000004 



iflNITIflL flOORESS OF THE STftCK POINTER «« 1100 *** 



•niSCELUtfCOUS OEFINITI 



ftf= 
LF= 
CR= 
CRLFs 
PS= 



11 
12 

177776 



.EQUIV P S.PSH 
STKLHTr 1 77774 
PIRO= 177772 
OSURs 1 77570 
DOISPs 177570 



FOR HORIZONTRL TAB 
CODE FOR LINE FEED 

Sm^I^ TEED 
STRTUS UORD 




STRCK LIHIT REGISTER 
PROaWN INTERRUPT F^QUEST REGISTER 
mSSmC SHXT^ REGISTER 
HRROHRRE DXSPLRY REGISTER 



IGENERRL PURPOSE REGISTER 



ftoT 

RU 
R2= 
R3= 
R4= 
R5= 
R6= 
R7= 



ZO 
•/.I 
X2 
yj 

X4 
X5 

77 





COUNTER 



tPRIORITY LEVEL DEFINITIOfC 



PRls 



PR3= 
PR4= 



PR7= 



0 

% 

140 
200 

340 




PRIORITY LEVEL 
PRIORITY LEVEL 

pSiffiiR lIv& 

PRIORITY LEVEL 



:«-SHITCH REGISTER" SWITCH DEFINITIONS 

^15= 100000 

SU14= 40000 

SU13= 2^ 

SU12= 10000 

SU11= 4000 

SUlOr 2000 

SMOSs 1000 

SU08= 400 

SU07s 200 

SU06S 100 

SUOSs 40 

SU04= 20 

SU03S 10 

SW02= 4 



LOS 
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000002 
000001 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 

000010 
000004 
000002 
000001 



000004 
000010 
000014 
000014 
000014 
0(XI020 
000024 
000030 

000034 



SUOl: 2 
SUOOs 1 
.EQUIV SUOS.SUS 
.EOUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 



.EQUIV 
.EQUIV 
.EQUIV 




l.SUl 



.EQUIV SUQO;SHO 



6!¥!l 

BIT14= 
BIT13S 
BIT12S 
BIT11= 
BIT10= 
BIT09= 
BIT08= 

mi 

BITOSs 
BITOHx 
BIT03S 



T BILgglNITIONS (BITOO TO BIT15) 

20000 
10000 
4000 
2000 
1000 
400 
200 
100 
40 
SO 
10 
4 
2 

IT09.BIT9 



BIT02S 
BITOOs 



Bill 



>4 
000240 



.EQUIV 
.EQUIV II 

mi " 

.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 

iiflfiSIC -CPU" 
m^Cs 4 
RESVECs 10 
TBITVEC=14 
TRTVEC= 14 
BPTVECs 14 
lOTVECs 20 
PURVECs 24 
EHTVEO 30 
TRflPVEC=34 
TKVECs &0 
TPVECs 64 
PIRQVEC=240 



TRflP VECTOR ADDRESSES 

;TIHE OUT fHi OTHER ERRORS 
Ig^^tvp RND ILLEGflL INSTRUCTIONS 

;TW)Ce TRRP 
BRERKPOINT TRRP (BPT) 
INPUT/OUTPUT TRRP (lOT) «»SCOPE»« 



(EHT) ««ERR0R«« 



EflJLATOR ^ 
"TWP^ TRRP 
m ttYBQRRD VECTOR 
TTY PRINTCT VECTOR 
PROGRRH INTERRUPT REQUEST VECTOR 



•«If«:C-ll-D2L«E-B 
DZUCB.Pll 28-fEB-77 



flRCYU 27(1006) 

15:08 



00017H 
000176 



0000% 
000052 




000000 

cooooa 



000200 
0000% 



020000 
000200 



0l-f1fW-77 m:MS 
BASIC DEFINITIONS 

CR=15 
LF=12 
FFslH 
CRLFs200 



'SBTTL TRflP CATCHER 
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MQ2 



HflLr 



«LOCflTION 0 CONTAINS 0 TO CATCH IffROPERLY LOADED VECTORS 



OISPREG: 
5UREG: 



.WORD 
.UORO 



0 
0 



.SBTTL ACTil HOOKS 

z z www WWWWWWVWI* p 

WOKS REQUIRED BY ACTll 
SSVPC=. 
.=% 

.WORD 20000 
.=SSVPC 



;;S0FTURRE DISPLAY REGISTER 
;; SOFTWARE SUITCH REGISTER 



l«HHH»M«fMMffffffft« 

;SAVE PC 

;;1)SET LOC.% TO ADDRESS OF SENDAO IN .SEOP 

;;2)SET L0C.52 TO 20000 
: : RESTORE PC 



NG2 
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000030 

OQOOX 0077HH 
000032 000000 

000100 

000100 00656^ 
000102 000000 

000104 008556 
000106 



1 1 1 1 ij 



ACTll HOOKS 
.=30 

;EnT - ERROR HtfOLER 



SERROR 
0 

.slOO 

LKSRV 
0 

DCI 
0 



;KH1H. INTERRUPT 
;KU11-P INTERRUPT 



000200 

000200 000137 001174 

000600 000137 001210 

000604 000137 001220 



001100 

001100 177560 

001102 177562 

001104 177564 

001106 177566 



; ; ftM«««f«fffM«ffff«f«fffHMftfff«««««ff«««ftfffftiMf #«««#«««««««# 

.SBTTL STARTING ROORESSES 
.=200 



JHP 
.=600 
JMP 
JNP 



START 

RESTRT 
COWTRL 



; GENERAL START 

; RESTART - NO INTERACTIVE TESTS 

;G0 TO KEYBOARD CONTROL 

;HILL DEFAULT TO SMITCH REG 
IF COfSOLE DEVICE DOES NOT EXIST 



.SBTTL 



TKS 
TKB 
TPS 
TPB 



COnnON TAGS 

.=1100 

177560 
177562 
177564 
177566 



.EQLIV TKSJTKS 
.EOUIV TKE.ITKB 

Mi 
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BQ3 



m:45 ?9G£ 26 



001110 000000 

001112 000000 

ooiim 000000 

001116 OCOOOO 

001120 000000 

001122 000001 

001124 175610 

001126 177510 

001130 000000 

001132 000000 



LPKS: 0 

LPKB: 0 

LPS: 0 

LPB: 0 
SERSU: 0 

NUNLP: 1 

FSTSAD: 175610 
FSTPflO: 177510 
ftCTFST: 0 
LPCTR: 0 



mm H LOCfiTioNs are initialized 



;THE Fi. 
BY THE 

;LHC PRINTER K80 STATUS REG qOORESS 
(IF SCRIRL INpFRCE) 
•BIT 6 = INTERRUPT ENRBLE 

;LINE PRirfTER KBD BUFFER REG R00RE5S 

;Lir€ PRINTER STATUS REG. ROORESS 

;BIT IS = ERROR (IF PRRftxa INTERFACE) 

BIT 7 = RWDY 

BIT 6 = IHTCTRUPT ENABLE 



;LINE PRINTER OftTA BUFFER REG. 
;BITS 0-6 = ASCII CHAR BUFFER 
BITS 7-15 = NOT USED 



POORESS 



; SERIAL SHITCH. THE PRESENCE OF ANY 1-SITS 
IN THIS HORO Hia INDlCATt THAT 
;SERIflL-INTERFflCEO LfllSO'S ARE TO BE TESTED. 
•DEFAULT IS ALL O'S : PARALLEL INTERFACE. 

;TIC NUrCER OF LAIBO'S UHICH THIS 
DIAGNWTIC HILL ATTEWPT TO TEST. 
jOEFAULT s 1 

; FIRST LAIBO ADDRESS TO BE USED IF INTERFACE- 
;TYPE INDICATED IN LOCATIOf SERSU IS SERIAL. 

{FIRST LAIBO ADDRESS TO BE USED IF INTERFACE- 
•TYPE INDICATED IN LOCATION SERSU IS PARALLEL. 

; ACTUAL FI^TADOKSS BEING USED 

•DURING PROGRANOCECUTION. INITILIZED BY PROGRAN ITSELF 
;LP COUNTER (USED BY PROGRAM ONLY) 



001134 
001136 



001142 
001144 



172540 
172542 



001140 177546 



177570 
177570 



PLKS: 172540 
CSBR: 17254? 



LKS: 



177546 



SUR: .WORD 177570 
DISPLAY: .UORD 177570 



;KL11-P CLOCK STATlfi^G. ADDRESS 
•KLll-P COUNT SET ADDRESS 

;KU11-L CLOCK STATUS REG. ADDRESS 

;SU REG ADDRESS 
•DISPLAY ADR 
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C03 



1H:HS POGE 27 



0011% 
001150 
rmi w 

001153 
001 15M 


000000 

000204 
nctn 

000 
000 


JTSTNM: 
WIDTH: 

TROfC: 
TLOOP: 


.UORO 
.UORO 
BYTF 
.BYTE 
.BYTE 


0 

132. 
n 

0 
0 


;TEST NUMBER 
;NUnBER OF COLUMNS 
■RUN TEST ONCF FLQC RFC TTI 1 
RUH TEST ON^ FLAG (KYBO CfL) 
•LOOP ON TEST FLAG (KYBD CTL) 


001155 


000 


CKFLAG: 


.BYTE 


0 


; CLOCK OPTION FLAG 
•0 s NONE AVAILABLE 
;+l = KLll-L 
;-l = KLU-P 


001156 
001160 
001161 
00116? 


000207 
077 
015 

000012 


SBEa: 
SQUES: 
SCRLF: 
SLF: 


.flSCIZ 
.ASCII 
.ASCII 
.ASCIZ 


<207> 

/"/ 

<1S> 
<12> 


;BEa CODE 
: QUESTION MARK 
CARRIAGE RETURN - LINE FEED 
•Lire FEED 


OOUbH 
001166 


000015 
000014 


SCR: 
IFF: 


.ftSCIZ 
.ASCIZ 

.EVEN 


<15> 
<14> 


; CARRIAGE RETURN ONLY 
•FORM FEED 



001170 
001171 
001172 
001173 



000 
002 
012 
000 



tHE FOaOMING LOCATIONS ARE USED BY TIC TTY TYPE ROUTINES 

SET THE Fia CHARACTERS AS REQUIR& FOR VARIOUS CONSOLE TERMINALS 

THE TERMINAL AVAILABLE FLAG UILL K SET BY THE PROGRAM. 



SNULL: .BYTE 0 

IFILLS: .BYTE 2 

IFiaC: .BYTE 12 

STPFLG: .BYTE 0 

.EVEN 



NULLCHARACTER FOR FILLS 

NUMER OF FILLER CHARACTERS REQUIRED 

INSERT Fia CHARACTERS AFTER LINE FEED 

TERMINAL UNAVAILABLE FLAG 

BIi <07> = 1 = UNAVAILABLE 



rMItCeC-ll-OZLAE-B nACYll 
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COrtlON TAGS 
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001174 
001200 

001226 
001234 



005037 
023737 

m 

012737 
013737 



0011% 
000042 



000046 



.SBTTL 
START: 



PROGRAH INITIALIZATION 



000020 0011% RESTRT: 



CLR 
CHP 



1 77777 
177570 
001142 



0011% 
001142 
001144 




001310 
001314 

88i^ 
001336 
001344 

X13% 

001356 
001364 
001372 

001376 
001402 
0ai4CN 
X1406 
001414 
001422 
001426 
001432 
001436 
001440 
□01444 
0014% 
001452 
001456 
001462 
001466 
001472 
001476 



0137% 
012737 

}! 



8 



1012 
000403 

012737 
012737 
012637 

017700 
005200 

012737 
017700 
042700 
020027 
003003 



000004 
0 01350 

177777 



000026 
005300 



000004 

a 1142 
1144 
177576 




CONTRL 
STARTX: NOV 
NOV 

.SBTTL IHITIALI 

;; INITIALIZE A FEH 
NOV 
NOV 
NOV 
NOV 
CLR 
NOV 

;;SIZE FOR 
EQUAL ~ 



ITSTNN 

3t42,aa% 

•177|7g.SUR 




SET TEST NUrCER TO ZERO 

OCCK IF IN ACT QUICK VERIFY 

9(IP HANUAL INTERVENTION TESTS IF YES 

sEt^lftl WBER TO 20 
INITIALIZE SHR CONTROL 



TAGS 

i;SETUP TIC STACK POINTER 



OR A HARpiOilTW^Ri 

imLateARVEc 

iSSII^SPLAY 



TSAP_VECTOR FOR TRAP CALLS 
FAILURE VECTOR 



NOV 
NOV 
NOV 
CHP 



001356 




64S 


000176 
000174 
000004 


001142 
001144 


65S 
66S 


177540 






000176 
000174 
177514 
177400 
000204 


001142 
001144 


6S: 


000002 




11: 


000204 
001150 
001154 
001152 
001153 
011660 




2S: 
3S: 



BR 

NOV 
NOV 
NOV 

NOV 
INC 



NOV 

NOV 

NOV 

BIC 

CNP 

BGT 

CNP 

BHIS 

NOV 

NOV 

CLRB 

CLRB 

CLRB 

CLR 

BR 



,(SP) 
tSHREG^SHR 

aSUR.RO 
RO 

Mhreg.smr 

lOI^R^G, DISPLAY 

•fTT^.RO 

R0,I132! 

2S 

•132.. RO 

ro.ui6th 
tl6op 
strone 
trone 
svtst 

lOS 



5T0R 



rci 



STER 



B^FS^oSf^ Burred 

and tic HMUmC SW IS NOT s -1 

POINT TO SOFTWARE SHR 
RESTORE ERROR VECTOR 
GET SWITCHES 



CHECK IF 




SWITCHES ARE UP 
TWARE SWITCH CONTROL 



GET SH R|G 

SAVE BITS 0-7 

TEST • COLUNNS 

TOO BIG. DEFAULT TO 132(10) 

DEFAULT TC 132(10) 
SAVE • CgLUHNS 
RESET FLAGS 



; REPLACE THIS INSTRUCTION WITH NOP (204) 



EQ3 




m 

1K777 

105037 
103002 
104414 



001155 
OOlTbH 
177777 

177302 

001173 

01522S 



001173 
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001500 

im 

001516 
001524 

001534 
OOlf 
OOl! 
001! 

S8il 
Si! 

001572 

001b04 
00160b 
001612 
001616 
001622 



001626 
001632 
001634 
001642 
001644 
001650 

001700 
001700 
001704 
001706 
001712 
001714 
001720 

001730 
001734 
001740 
001742 
0017% 
001750 
001752 



Ol-fWR-77 14:45 PftGE 23 
INITIALIZE IHE COfflON TAGS 



lOS: 




20S: 
30S: 



4S: 
5S: 



BR 

MOV 

nov 
novo 

SEC 

TSTB 

BCC 

nove 

BCC 

CLRB 

J5R 

nove 

SEC 
TSTB 
BCS 
CLRB 
BCC 
PRINT 
CLR 
CLR 
J5R 



SOS 

lRTI.ai6 
t-l.CKFLAG 

sy<s 

30S 

•l.CKFLAG 

aus 

30S 

CKFLR6 
PC.QUQl 

aTKS 
41 

STPFLG 
5S 

NCnSG 



JO SKIP CLOCK TIMINGS 

SET TRRP RETURN 

SET CLOCK FLRG FOR KHU-P 
SET C-flIT _ 
KUU-P RVfllLRBLE? 
FORCOf 



CHECK FOR CONSOLE TERMINAL 
SET CLOCK FLAG FOR KUU-L 
SET C-fllT _ 
KUll-L AVAILABLE? 



i 



005227 

oQiggg 

022737 
001416 
104401 
000413 



005737 
002005 
105737 
100406 

iir' 



177777 

005322 000042 
001652 



rm 

001402 
000137 
013700 
006300 
005760 
003004 








001146 




001173 


15S: 


007442 




000400 177214 


US: 


006752 


13S: 


001146 


12S: 


013356 




001146 




013356 


14S: 



•4 

^PC^^0U02 

ifrvft THTNAHE^^lic^^ 
INC i-l 

cnP •sooA0,at42 

BEQ 67S 

.ASCIZ <CRLF>iHAINDEC- 




TST 
BGE 
TSTB 

Bni 

JHP 
BIT 

10 



NOV 
ASL 
TST 
BGT 
BLT 
INC 

BR 

JMP 



STSTfW 
US 

STPFLG 

K^T 
SSUB«3SUR 

S&CT 
STSTNH.RO 

TO ^ 
TAT(RO) 

14S 

15S 

STSTNN 

US 

aTAT(RO) 



1^ ^N|^ UNAVAILABLE FLAG 

CONSOLE TERMINAL THERE^ 
NO BMNCH 

YEi. CLEAR C0N50U UNAVAILABLE FLAG 
CONtlNUEIF CONSOLE 
PRINT NO CCNSOLE MESSAGE 
RESET TRAP VECTOR HALTS 

TYPE INTF. MISC. IF CONSOLE 



IF FIRST PASS 
FIRST TIME' 
BRANCH IF NO 
ACT-U? 

YES 

_ STRING 
w,«, T»C ASCIZ 
ll^OZLAE-Bt<CRLF> 



UANT CONTROL NOW? 
NO. CONTINUE 

teAninal nCRE? 

T TOSH REG CONTROL 

KYBO CONTROL 
SELECTION? 
NO. CHECK TEST • 

ScP'ihgsT m T«LE 

BRANCH IF IN TABLE 

END OF SEQUENCE, OLECT TEST 

INCREMENT TEST AUHBER 

CHECK NEXT TEST NUMBER IN TABLE 

GO TO TEST 
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001120 

001124 
01120b 

001126 
Q11Q4M 
01131& 



001130 
011042 

001130 
011042 



Ol-NfiR-77 14:45 
T\'PE PROGRfln NATC 



PflGE 30 



FQ3 



QUOl: 

SOS: 
90S: 



nov 

NOV 

BR 

NOV 

NOV 

JSR 

RTS 



FSTSflO.ftCTFST 
'',OftD,U3PTR+2 

ftCTFST 

•plo«dIloptr+2 
pc,rstAor 

PC 




SET ADDRESS OF 1ST SERIAL INTF. 

■ 1 OF 1ST MRRLLEL INTF. 



I » M:v- 



SHITW TO PflRflOa Li 
ROORESS 1ST LINE PRI 
RETURN 



002032 
CX1S036 
002040 
002044 
0020S0 
0Q20S2 
0 ^ 20^ 6 



002074 

002110 
002112 

002120 

002130 
002132 
002140 
0021% 

0^161 
0021IB6 
002174 
00217b 



10S737 
1004X 

oStS^ 

00147b 
104401 
104401 
104401 

104401 
04401 
137% 
104403 
00b 
001 
104401 
000207 



047111 
041501 
030501 
K1505 



001173 

002176 
001120 

002122 
002132 
002161 
001122 

002176 



002176 

044522 0%101 



042524 
042105 
030070 
100124 



20 046040 

030070 051447 



000040 
000200 



043122 
04b040 
052040 
000 
^0501 
Sb440 




1522 (£0124 

7111 ffi2524 

123 042101 

1505 020123 



0U02: 



70S: 



78S: 
71S: 



73S: 



74S: 
75S: 



0022% 104401 002234 
002252 000701 



0%114 76S: 



77$: 



TSTB 

BHI 

Tr?£ 

TST 

BEQ 

TYPE 

TYPE 

TYPE 

NOV 

TYPOS 

TYPE 

TYPE 

NOV 

TYPOS 

.BYTE 

.BYTE 

TYPE 

RTS 

.RSCIZ 



STPFLG 
78S 

.745 



77S 
,711 

72$ 

73$ 

Wt.P,-(SP) 
,74$ 

ftcSsT,-(SP) 

6 
1 

^« 

/SERIAL / 



IS THERE A CONSOLE TERNINAL? 

BRANCH IF NONE 

CRLFCQNSOLE 

IS SERlALailTCH SET' 

ZER0SsN0=PARALLEL=8RANC-H 

InTE^ACED LAIBO TEST, CRLF 
• LAIBO'S = 

PUT • OF LP'S ONTO STACK 
TYPE • OF LP^S BEINiS TESTED 
CRLF 

FIRST PRINTER'S ADDRESS IS 
PUT VALUE ONTO STACK 
TYPE OCTAL ADDRESS 

;CRLF 
•EXIT 



72$: .ASCIZ /INTERFACED LAIBO TEST/<CRLF> 



.ASCIZ /• LAIBO'S = / 



.ASCIZ 
.ASCIZ 



.ASCIZ 

.EVEN 

TYPE 
BR 



<CRLF> 

/FIRST PRINTER'S ADDRESS IS / 



/PARALLEL / 



.76$ 
^0$ 



; PARALLEL 
•CONTINUE 



G03 
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0022S4 
002260 



002272 
00227H 
002276 
002302 



110 
U4 
002316 
002320 



005737 001120 
001402 

000137 006644 
Vmai 015567 
104421 
104420 

005777 176612 
100402 
104001 
0 00772 

IgTg 176600 

104002 
000765 



002322 
002326 



002336 
0^340 
002342 
002344 
002350 
002352 
002354 



104401 015626 
104421 

iSsT?? 176556 
100402 
104003 
000772 

105777 176544 
100002 
10400M 
000765 



002356 104401 015651 

002362 104421 

002364 104420 

002366 005777 176522 

002372 100002 



.SBTTL OPERATOR INTERVENTION TESTS 

;////////////////////////////////////////////////////////////////////// 

jTESTO - INTERFACE AND CONTROL TESTS (PflRRLLEL INTF ONLY) 

•TEST ERROR AND READY BITS, PRINTER OFF LINE - POUER OFF 

;/////////////////////////////////////////////////////////////// /^///// 



TESTO: 

29S: 
28S: 



IS: 



TST 

BEQ 

JHP 

TYPE, 

HOLD 

CHECK 

TST 

BNI 

ERROR 

BR 

TSTB 

BPL 

ERROR 

BR 



SERSU 
2SS 
EXIT 
TQHSGO 



aLPs 

IS 

1 

28S 

aLPs 

2S 

2 

28S 



IS PARALLEL INTF INDICATED' 
BRANCH IF YES 
OTHERWISE, EXIT TEST 
TY« irfiTRUCTIONS 
WAIT FOR OPERATOR 
WCCK FOR CONTROL 
CtCCK FOR ERROR CONDITION 
OK. ERROR Sn 
ER^ CLEAR, POUER OFF 
RETEST 
CHECK READY 
OK. READY NOT SET 
Y SET, POWER OFF 



////////////////////////////////////////////////////////////////////// 
TEST ERROR AND READY BITS, PRINTER OFF LINE - POWER ON 
////////////////////////////////////////////////////////////////////// 
TOnSGl 



2S: 
3S: 

4S: 



TYPE, 
HOLD 

mi 

ir 

TSTB 
BPL 
ERROR 
BR 



aLPS 
4$ 

aLPS 

5S 

4 

3S 



TYPE INSTRUCTION - TURN POWER ON 
WAIT FOR OPERATOR 

OK. ERROR SET 

gAOR CLEAR, PRINTER OFF LINE 

CHECK READY 
OK. READY NOT SET 

Y SET, PRINTER OFF LINE 



////////////////////////////////////////////////////////////////////// 
TEST ERROR AND READY BITS, PRINTER ON LINE 

////////////////////////////////////////////////////////////////////// 



5S: 
6S: 



TYPE 

HOLD 

CHECK 

TST 

BPL 



,T0NSG2 



aLPS 
71 



TYPE INSTRUCTION. TURN ON LINE 
HA^T^FOR_OPERATOft 



FOR CONTROL 



CHECK ERROR 
OK, ERROR CLEAR 
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H03 



Ql-nPR-T? 14:45 PflGE 32 
OPERATOR INTERVENTION TESTS 



00237M 

OQ240H 100402 

002406 1Q4006 

002410 OOOTbS 




1 765 10 



71: 



ERROR 

BR 

TSTB 

BNI 

gROR 



5 

81 

b 



ERROR SET, PRINTER ON LINE 
RETEST 
CHECK READY 
OK. READY SET 

^A^Y CLEAR, PRINTER ON LINE 



////////////////////////////////////////////////////////////////////// 
TEST PAPER OUT SWITCH 

///////////////////////////////////////////////////////////// ///////// 



002412 104401 015705 



002422 
0Q24X 
002434 
0Q243E> 
00244C 
00244? 
0024Mt 
00?^^ ~J 
1' ."tSS 



104421 
104420 

012777 000012 

305777 1764&0 

« 

000767 

105777 176446 

liRoio 

000762 



176466 



8S: 
SS: 



lOS: 



TYPE 

HOLD 

CHECK 

MOV 

TST 

BNI 

ERROR 

BR 

TSTB 

i^OR 
BR 



,T0nSG3 



•12.3LPB 

BLPS 

lOS 

7 

9S 

aLPs 

ii* 

9S 



HAlf fS^S^Si^Oft 



PAPER OUT 



CHECK CONTROL 
SEND LF 
CHECK FOR ERROR CONDITION 
OK. ERROR SET 

ERAoR CLEAR, PAPER OUT ERROR 

RETEST 

CHECK READY 

REAOY^, PAPER OUT, ON LINE 
RETEST 



////////////////////////////////////////////////////////////////////// 
TEST ABILITY TO CLEAR ERROR CONDITION 

////////////////////////////////////////////////////////////////////// 



002454 
002460 
002462 
002%4 

002470 
002472 
002474 
002476 
002502 
002504 
002506 



104401 015737 

104421 

104420 

005777 176424 
100002 
104011 
000772 

105777 176412 
100402 
104012 
000773 



IIS: 
12S: 



13S: 



TYPE 

HOLD 

C«CK 

TST 

BPL 

ERROR 

BR 

TSTB 

BNI 

ERROR 

BR 



,T0HSG4 



aLPS 
13S 
U 
12S 

aLPS 

14S 

IS 

13S 



TYPE IfgTRUCTlON. 
UAIT FOR OPERATOR 
CHECK FOR CONTROL 
CHECK ERROR 
OKjERROR CLEAR 
ERAoR DID NOT CLEAR 
RETEST 
CHECK ^Y 
OK. READY SET 
READY NOT SET 
RETEST 



RESET & ON LINE 



////////////////////////////////////////////////////////////////////// 
CHECK ERROR & READY BITS AFTER RESET INSTRUCTION 

////////////////////////////////////////////////////////////////////// 



002510 104420 

002512 000005 

002514 005777 176374 

m m 

002524 000771 



14S: 



CHECK 

RESET 

TST 

BPL 

ERROR 

BR 



aLPS 
15S 
13 
14S 



CHECK CONTROL 
CLEAR UORLD 
CHECK ERROR 
OK. ERROR CLEAR 
RftOR BIT 



El 

RETEST 



SET AFTER RESET INSTR. 



103 
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15S: 




llftW 17b35b 
d02S3b 100M02 

8^ mi 





ROt 



CK READY 
READY SET 
Y BIT CLEAR AFTER RESET INSTR. 



;////////////////////////////////////////////////////////////////////// 

;C»€CK THAT LOADING CHAR BUFFE 
I AND PRINTER DOES GO 



CHAR 
BACK 



R RESnS READY BIT 
Y. 



////////////////////////// 



G02S44 104420 




IbS: 



OOSStt 



izm 000015 

105777 178332 



QOOTbS 

1777 176320 



17b340 



171: 



0^SiQ2 
002606 
002610 
002612 
0026J4 
002616 



10401 6 
0 00761 

105777 176306 

100404 

005205 

001366 

104017 

000752 



IBS: 




CHECK CONTROL 
CLEAR TinE OUT COUNTER 
LOAD CARRIAGE RETURN INTO BUFFER 
CK READY 



SJLSEADY 
REftOYBIT 
RETEST 
ECK I 




CLEAR WHEN CHAR LOADED 



(>CCKm0R 
S(,,ERR0R aEAR 
ERAoR BIT Sn AFTER CHAR LOAD 
gTEST 

PRINTER STILL BUSY 
NO. NEXT TEST 
YE§. INC TIltR 
UAlt FOR FLAG 
NO. TOO LONG 
REtEST 

;////////////////////////////////////////////////////////////////////// 

; CHECK INTERRUPT LEVEL OF PRINTER 
•PRINTER SHOULD BE ATLEVEL 4 

I TEST THAT PRINTER MILL NOT INTERRUPT ABOVE LEVEL 3 

:////////////////////////////////////////////////////////////////////// 



002620 


012705 


000340 




19S: 


NOV 


002624 


104420 






20S: 


CHECK 


002626 


012737 


002730 


000200 




NOV 


00%42 




000340 
176246 


000202 




NOV 


\SKt77 






TST 


0026% 


100002 








BPL 


002650 


104020 








ERROR 


003652 


000764 








BR 


002654 


105777 


176234 




21S: 


TSTB 


002660 


100402 








BNI 


002662 


104021 








ERROR 


002664 


000757 








BR 


002666 








22S: 




002666 


010546 








MOV 


002670 


012746 


002676 






NOV 



•PR7,R5 

•23S,200 

•PR7,2Q2 

fiLPS 

SIS 

20 

20S 

BLPS 

22S 

21 

20S 

R5,-(SP) 
•64S,-(SP) 



SET FIRST LEVEL 

CHECK CONTR OL 

SET INTERRUPT RETURN 

Sn PRIORITY 7 OH INTERRUPT 

SiECK FOR ERROR 

OK. ERROR CLEAR 

gAOR BIT SET 

CHECK READY 
OK. READY SET 
REAoy bit NOT SET 
RETEST 

;PUT NEU PS ON STACK 
; PUT NEW PC ON STACK 



1ftlrC€C-ll-0ZLfC-B fIflCYli 
DZLfiEB.PU 29-fEB-77 15-08 

COZbTH 000002 
00267b 

00267b 052777 000100 

gogTOH :: :: : 

8^ m m 

002720 0^527 000140 
00272H 
00272S 

0027X 022626 

002732 104022 

002734 000733 



JD3 

27(1006) OHW-77 14:45 PflGE 34 
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002736 
002740 



002754 
002756 
002760 
002764 
002766 
002770 



ZffC 

002774 
003000 



003010 
003012 



0030SH 




003066 
003066 



104420 
012737 
3777 

If 
104020 
000767 
105777 
100402 
104021 
000762 

0105% 
0127% 
000002 

05277 7 
00 0240 
0H2777 



003024 
176142 



176130 



003002 

OOOIX 
000100 



042777 000100 

000040 

ViSf^ 000137 
012737 001174 

Ql|746 003066 



176210 
176200 



000200 



64S: 



RTI 

BIS 
NOP 
BIC 
SUB 
Cff> 
0 



ieiT6,aLPS 
R5.&PR3 



23S: 



Cff 

ERROR 

BR 



(SP)+,(SP)+ 

22 

20S 



;POP rCU PC «ND PS 

SET PRINTER INT. ENfiBLE 
DEL«Y 

OEflR PRINTER INT. ENftBLE 
^TNEXT LEVEL 
LEVEL 3» 

^v-^m 

RESTORE STACK 
INTERRUPT ABOVE LEVEL 3 
RETEST 



////////////////////////////////////////////////////////////////////// 
TEST ABILITY OF PRINTER TO INTERRUPT AT ALL PRIORITY LEVELS BELOU H 
////////////////////////////////////////////////////////////////////// 



24$: 



CHECK 

NOV 

TST 



25S: 
26S: 
65S: 

176104 
176074 

176062 27S: 



000200 
000202 



ERROR 
BR 

TSTB 

Bni 

ERROR 
BR 

NOV 
NOV 
RTI 

BIS 
NOP 
BIC 
gROR 

BIC 



000137 006644 



66S: 



N^ 

nov 

NOV 
RTI 

JHP 



I27S,200 

ik? 

20 
24S 

aiPs 

265 

21 
24S 

R5.-(SP) 
•6^,-(SP) 

•BIT6,aLPS 
tBIT6,aLPS 

ieiT6,aLPS 

(SP)4l(SP)+ 
•40, R§ 



•137.200 

•STAftT,202 

-(SP) 

•66S,-(SP) 



EXIT 



CHECK FOR C ONTROL 
SET INTERRUPT RETURN 
FC 



ERitoR BIT SET 
RETEST 

check ready 
ok. ready set 
reAdy clear 

RETEST 

;PUT rCU PS ON STACK 
PUT tCU PC ON STACK 
•POP tCU PC AND PS 

SET PRINTER INTR. ENABLE 
DELAY 

CLEA R PRIN TER INTR. ENABLE 
g^pTERRUPT BELOW LEVEL 4 



CLEAR PRINTER INTR. ENABLE 
RESET STACK 
grN EXT LEVEL 

;;PyT rCH PS ON STACK 
PUT tCU PC ON STACK 
I -POP NEU PC At€ PS 

;EXIT TEST 



MfllNOeC-ll-OZLflE-B fWCYll 
DZLflEB.PH 28-FEB-77 15:08 



KQ3 

27(100£>) Ol-fKW-77 14:45 P9C£ 35 
OPERATOR INTERVENTION TESTS 

;////////////////////////////////////////////////////////////////////// 

;TEST1 - TOP OF FORH SWITCH TEST 

i////////////////////////////////////////////////////////////////////// 




003104 012700 000055 



32 



104401 
010537 

m 

104401 

mt 

104414 
104414 
010537 
14 



66 

?i 

003174 
003200 

003204 

;io 




104414 
0225 25 

m\ 

104414 
000137 

031440 



003250 
003254 
003260 



U061 
032061 
000000 



001164 
016035 
003130 



016067 



001166 
015777 
003160 



016006 



001162 
006644 

00004 0 
000065 




000040 
000040 



TESTl: 



3S: 



IS: 



2S: 



4S: 



PRTHDR 

NOV 
NOV 



TYPE 

NOV 

TYPE 

TYPE 

CH^ 

PRINT 

PRINT 

NOV 

PRINT 

.UORC 

PRINT 

CHP 

LSI 



A5CIZ 
RSC] 



RSCIZ 

RSCIZ 
QSCIZ 
klORD 



•55, RO 
,SCR 

!tihsc3 

RS.IS 

0 

,T1HSG4 

,$FF 

ITINSGI 

ft5.2S 

0 

.T1HSG2 
(RS)+,(R5)+ 

^. 

/ 3 / 
/3.S/ 
/ 4 / 
/S.S/ 
/ 6 / 
/ 7 / 
/ 8 / 
/8.5/ 
/U / 
/12 / 
/14 / 
0 



SET DASH CHAR 

TYPE INSTRUCTIONS 

SET SUITCH SETTING FOR MESG 




ISSUE FORH FEED 

PRINT REFERENCE LINE 

SET FORH FEED LENGTH FOR HESG 



; FINISH NESG 
INC TABLE POINTER 

TO SEE IF DONE TEST 




;FORN FEED SUITCH SETTINGS 



;EN0 OF TABLE 
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////////////////////////////////////////////////////////////////////// 
TEST8 - PRINT SPEED TIMING 

TIHING MIL BEDONE BY KUll-L/KUU-P (XOCK OTION IF EITfCR (WAILflBLE. 
OT»CRHISE, mm. TIHING UILL BE USED TO OBTAIN flPPROX. PRINT TININGS. 

IF A HRROURRE SWITCH REGISTER IS NOT RVRILflBLE. THIS TEST 
CfWNOT BE RUN WITHOUT A CLOCK OPTION BEING AVAILABLE. THE 
PROGRAM Uia AUTOdATICALLY SKIP THIS TEST IF IT CANNOT BE RUN. 

////////////////////////////////////////////////////////////////////// 



003262 104413 TESTS: 
jH 012737 003500 006610 




003312 
003320 



105737 
001417 
0OSHO7 
01 3737 
012777 
000427 
1 3777 
12777 



8 



001155 



006612 
000100 

SSoiol 



006606 
175620 

175606 IS: 
175576 




001142 177570 41: 



003370 
003376 

003400 
003404 

003414 



032777 
00177M 

012702 
010200 
013701 
104415 
005301 
407 




003466 
003470 



005202 
020227 



016134 
016134 

8!^ 

010000 
000041 

raiiso 



000177 
000040 
001162 
001155 
010000 
003500 
000177 



2S: 

175544 3S: 



T2SP: 
IS: 



Hi 



4S: 



175462 



PRTHDR 

NOV 

CLR 

TSTB 

BEQ 

BLT 

NOV 

NOV 

BR 

NOV 

NOV 

BR 

CMP 

BEQ 

PRINT 

TYPE 

JMP 

TYPE 

BIT 

BEQ 

NOV 

NOV 

NOV 

LOAD 

DEC 

BEQ 

INC 

CHP 

BNE 

NOV 

BR 

7r 

TSTB 



5S: 



INC 
CHP 



•SPDJORTN 
R4 

CKFLAG 

4S 

IS 

HINCNT.CNTR 
•6IT6,dLKS 

T2SP 

^,•177570 
,T2EH 

.HANHSG 

ISU12,aSHR 

3S 

•41^ 
R2.ft0 

uiDth.ri 

Rl 

R0,I177 
3S 

•40,R0 
3S 

CKFLAG 
liui2,9SUR 

Uo 

R2 

R2,I177 



PRINT TEST HEADER 

SET TIhToUT RETURN 

CLEAR Ll« COUNT 

TEST CLOCK FLAG 

NONE THERE, NANUAL TIHING 

KHU-P 

KHU-L CLOCK COUNT 
" CLOCK INTERRUPT 
START PRINTING 
SET CLOCK COUNT 
START CLOCK 
START PRINTING 
CLECK SU REG AOR 




HARDUARE 
HESG 



CONTINUE IF 

PRINT INSTRUCTIONS 
SU12 UP? 

NO, WAIT FOR START 

SET START CHAR 
SET CHAR 

DEC CHAR COUNT 
BRANCH IF DONE LINE 
NEXT CHAR 
CHECK CHAR 
OK. CONTINUE 
SEt CHAR = SPACE 
CONTINUE 

USING CLOCK TIHING^ 

ifft MB? ™^ 

?fe.^miNTING ROUTINE 
INC START CHAR 
CHECK IT 



MQ3 
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003|47H 
003H7EI 



003500 
00350H 



1^ 
003516 

nngszg 

00352H 
003530 
003534 
003534 




003572 
003576 
003602 
003604 
003610 



1343 



012700 
104415 
104401 
104414 
105737 
001004 
104401 
104414 

010446 
004737 
104417 
Ol04H& 
104405 
104414 
104401 
0X37% 
164405 
104401 
0137% 
004737 
104417 
104414 
000137 



000177 

015470 
015470 
XI 155 

015511 
015511 



012650 



015522 
015522 
001150 

015551 
001150 
012650 

015551 
006644 



;////////////////////////////////////////////////////////////////////// 
;ROUTINE TO PRINT/TYPE MEASURED PRINT SPEED FOR TEST 2. 
',////////////////////////////////////////////////////////////////////// 



SPD: 



IS: 



NOV 

LOAD 

TYPE. 

PRINt 

TSTB 

BNE 

TYPE 

PRINT 

NOV 
JSR 

CNLOAD 

NOV 

TYPOS 

PRINT 

TYPE 

NOV 

TYPOS 

TYPE 

NOV 

JSR 

CNLOAO 

PRINT 

JNP 



•177, RO 



6kFLAG 
IS 

,PRSP2 
;PRSP2 

PC,SSBS) 
R4,-(SP) 

,PRSP3 
HIDTH,-(SP) 

,PRSP4 

filDTK.-(SP) 

PC,SS62D 

.PRSP4 

txii 



;SET RUBOUT CHAR 
;CLEAR CHAR BUFFER 
I STAR r HESG 

;U5ING aOCK^ 
'YES BRANCH 

•AOO'HORD "APPROXINATELr TO MESG 



:PUSH R4 ON STACK 
CONVERT • 
LOAD • 

iWSki R4 ON STACK 
tYPE • 

LOAD NORE OF NE5G 

•COLUHNS ON STACK 
TYPE • 

TYPE END OF NESG 

• COLUNNS ON STACK AGAIN 

CONVERT • 

LOAD I 

PRINT NESG ON LA180 
EXIT TEST 



N03 
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.SBTTL PRINTING TESTS 



mil hm 052452 

003622 012702 CJ0020 

?m im 001150 



003640 005301 
1374 



0036% 104M14 001162 

003652 005302 

003654 001364 

003656 000137 006644 



;////////////////////////////////////////////////////////////////////// 

;TEST20 - ORTR TRRNSFER PRTHS TEST 

;TH|^ST PRINTS 16 LINES OF RLTERNRTING «'S AND U'S IN R CHECKERBOARD 

:////////////////////////////////////////////////////////////////////// 



TEST20: PRTHDR 
NOV 



IS: 
2S: 



NOV 
NOV 
NOV 

DEC 

PRINT 
OEC 



JHP 



•'*ftU,R3 

uf6TH,Rl 

RQ 
Rl 

IS 

EXIT 



st liic count 
Si chm pair 
St oSjjm count 

OEC coLum count 

sfir^Sx'f'LfNE STfWT CHflR 
PRINT LINE 
OEC LINE COUNT 
FINISH TEST 
EXIT UHEN DONE 



BOH 
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JiT&l 



ISO 



OOOOMO 




000130 

001164 

OOUSO 

001162 
006644 



;//////////////////////''////////////////////////////////////////////''/' 

;TEST21 - i€S€ POSITIONING TEST 

•THIS TEST PRINTS A SINGLE LINE OF fLTEii«TING O'S M€ SPACES 
;T)€N FILLS IN THE SPACES WITH X'S OfC AT A TINE. 

:////////////////////////////////////////////////////////////////////// 



TEST21: PRTHDR 
NOV 



IS: 



2S: 
3S: 



NOV 
LOAD 
DEC 
BEQ 
NOV 
LOAD 
DEC 

SiNT 

NOV 

NOV 

NOV 

DEC 

HLOAD 

NOV 

PRINT 
AOO 

SSs 

PRJHT 



HIDTH.Ri 

•60,r6 

Rl 
2S 

•40,R0 
Rl 

is 

.SCR 

kZ.RZ 

•40.R0 

R2,Al 

Rl 

rx.RO 

,SCR 

l^,R2 
— UIOTH 



.ILF 



PRINT TEST (CAOER 
ST COLUm COUNT 
m CHAR 
LOAD CHAR 
DEC CHAR COUNT 
PRI^INE LOADED 
SET SPACE C^ 
LOAD SPACE 
DEC CHAR COUNT 
FINI94 LINE 
PRINT LINE 
SET FIRST CHAR COUNT 
Sn S^ CHAR 
GET CHAfTcOUNT 
SUBTRACT OfC 
LOAD SPACES 
SET X CHAR 



kOAO X 

PRI ~ 



INT LINE 
AOO 2 TO CHAR COUNT 
DONE LirC^ 
NO. FINISH LINE 
YE§. ADVANCE PAPER 
EXit TEST 



C04 
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003772 
00377M 
Q040Q0 
OOHOOH 
004010 
004012 
004016 
004022 
004024 
004026 

^ 

004036 
004040 
004044 
00H0M6 
0CN050 



104413 
0J?702 
OK 701 
C2C127 
003402 
012701 
104414 
005301 
001405 
012700 

m\ 

001367 
104414 
005302 
001354 
000137 



000002 
001150 
000177 

000177 
004054 



000055 

001162 
006644 



;////////////////////////////////////////////////////////////////////// 



;TEST22 - 



BflCKSPflCE TEST 



2 LINES OF X'S INTERSPACED UITH DA9CS UILL BE PRINTED BY PRINTING A SLASH, 
EXECUTING A BACKSPRCE. AND TtCK PRINTING A BACKSLASH TO 
COHPLETE EACH X CHAR. 

•A NAXINUn CF 127 COLUmS HILL BE PRINTED BY THIS TEST. 

;////////////////////////////////////////////////////////////////////// 



TEST22: PRTrtJR 
NOV 



IS: 



2S: 



0040S4 004057 000134 



3S: 



lOS: 



NOV 
CMP 
BLE 
NOV 
PRINT 
DEC 
BEQ 
NOV 
LOAD 
DEC 
BNE 
PRINT 

DEC 
BNE 
JNP 



•2.R2 

hi6th.ri 

Rl,ll27. 
2S 

•127., Ri 
.lOS 

3S 

•55, RO 

Rl 

2S 

.$LF 

A2 

IS 

EXIT 



PRINT TEST tCAOER 
SET Lite COUNT 
SET COLUm COUNT 
CtCCK • COLUNNS 
GitATER THAN 127? 
YES. or TO 127 
L0A6 £ a SH DS BA C KSLASH 
DEC CLOUNN COUNT 
PRINT LINE IF DONE 
SET ASCII OF DASH 
LOAD iSaSH CHAR^ 
DEC COLUHK COUNT 
FINISH LINE 
PRINT LINE 
DEC LINE COUNT 
FINISH TEST 
EXIT TEST 



.ASCIZ <57><i0><134> 



.EVEN 



004080 104413 

004062 012700 000040 

004066 012701 000036 

004072 104416 

004074 104414 001162 

004100 005200 

004102 020027 000177 

004106 001367 

004110 000137 006644 
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PfiGE 41 



;//////////////////////////'/////////, - ///////////////////////////////// 

;TEST23 - CHfWflCTER GEfCRflTOR TEST 

^PR^^EoB^BY^ji'LflC Of'%L k^S^ CHRRflCTERS LONG) OF ERCH PRINTABLE CHRR 
:////////////////////////////////////////////////////////////////////// 



TEST23: 
IS: 



PRTHDR 

NOV 

NOV 

NLORO 

PRINT 

INC 

CNP 

ONE 

JNP 



•40,R0 
130., Rl 

to 

R0,8177 
II 

EXIT 



PRINT TEST HEftDER 
SET FIRST CHRR 
SET CHRR COUNT 
LORD LINE 
PRINT LINE 
SET NEXT OHPR 
CHPR = RUBOUT? 
NO. FINISH TEST 
ExIt TEST 
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PPGE 42 



E04 



884116 

004122 
004126 
004132 
004136 

»l 

004 

004 

004166 
004172 
004176 
0014200 
004202 
1104204 
004206 
004210 
004214 
004216 
004222 
004224 

88^ 

004236 



424c 
0042% 
Q042S0 
0042S6 
004260 
004264 
004270 
004272 
004274 
004276 

m 

004310 
004312 



000041 

812706 000036 
13701 001150 
012703 000377 
160103 



002H02 




162701 

004737 
013701 
010200 
104415 
005301 
001407 
005200 
020027 
001371 
012700 



000035 



000377 



004320 
001150 



000177 
000040 



110301 
004737 
104414 
005305 



S8' 



14320 
1162 



i////////////////////////////////////////////////////////////// //////// 



;TEST24 - 



NON-PRINTWLE CHARACTER TEST 



THIS TEST PRINTS fl 30LINE SHIRL PATTERN WITH NON-PRINTflBLE CHflRACTERS 
LOflOED BEFORE AND AFTER THE PRINTING CHARACTERS TO TEST ALL AREAS OF THE 
CHARACTER BUFFER IN THE LAIBO. IF THIS TEST IS LOOPED ON. THE SHIRL 
'.PATTERN HILL CONTINUE, 30 LINES PRINTED EACH TINE THE TESt IS LOOPED. 

;////////////////////////////////////////////////////////////////////// 



TEST24: PRTHDR 
NOV 
NOV 
NOV 
NOV 
SUB 



2S: 



3S: 
4S: 



5S: 



&S: 



001006 
0 3 2777 
001002 
000137 
012705 
005003 
000401 
060403 
01370: 




11322 
012702 



001154 

040000 174664 

006644 
000036 

001150 
000177 
000C41 



7$: 



8S: 
9S: 



BLT 
INC 
6R 

aR 

SUB 

res 



JSR 

NOV 

NOV 

LOAD 

DEC 

BEQ 

INC 

CHP 



NOV 

BR 

NOV 

SiNT 
DEC 

BNE 

BIT 

BNE 

JHP 

MOV 

CLR 

BR 

ADD 

NOV 

INC 

CMP 

BNE 

MOV 



•M1,R2 
•30' R5 

uidtA,ri 

•255., R3 

R1,R3 

RH 

•2S.,R3 
3f 

R4 



•255., Rl 

R^,R1 
PC.IOS 

ui6th,ri 

R2,R0 

Rl 
6S 

RO 

R0,il77 
5S 

i40,RO 
5S 

R3,R1 



fLOOP 
7S 

»SUlH,aSUR 
7S 

EXIT 
•30., R5 
R3 
SS 

R4.R3 
UIDTH.RI 

Ri,ll77 
41 

•41, R2 



PRINT TKT tCADER 
SET START CHAR 
SET LINE COUNT 
GET C OLUHN COUWT 
SET BUFFER SIZt 
SUBTRACT COLUMNS COUNT 



COUNT BY 2S 



R4 s NON-PRINT CHAR INC COUNT 

CLEAR NON-PRINT CHAR COUNT 2rO BLOCK 
CALCULATE • NON-PRINT CHARS, 1ST BLOCK 



BLOCK OF NON-PRINT CHARS 
NTABLE CHARS (COLUMN COUNT) 



LOAD 1ST 
SET • PRI 

SCT FIRST PRINT CHAR 
LOAD PRINTABLE CHAR 
DEC CHAR COUNT 

BRANCH IF DONE PRINTABLE CHARS 

rCXT CHAR 

CHECK CHAR 

OK - CONTINUE 

REST CHAR = SPACE 

CONTINUE 

SET • NON-PRINT CHARS. 2ND BLOCK 
^q^2Mj^0CK NON-PRlNT CHARS 

DEC LINE COUNT 

CONTINUE TEST 

LOOP ON TEST* 

YES. INITIALIZE 

LOO^ OH TEST?_ 

YES. INITIALIZE 

Exit TEST 

RESET LINE COUNT 

CLEAR NON-PRINT CHAR COUNT 

CONTINUE SUIRL 

INC NON-PRINT CHAR COUNT, 2ND BLOCK 
RESET COLUMN COUNT 

OK. CONTINUE 
RESET START CHAR 
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004320 
004322 

004330 

m 

00433b 
004342 
004344 

004;— 

m 

004360 
004364 
004366 
004372 
004374 
004400 
004402 
004404 



005701 
001430 



005301 




001774 
020027 

1771 




001760 
020027 
001751 
OOCSi 
000207 



000007 
000010 
000012 
000014 
000015 
000040 



BR 4i {CONTINUE 

////////////////////////////////////////////////////////////////////// 
ROUTINE TO LOAD NON-PRINTABLE CHRRflCTERS FOR TEST 24. 
////////////////////////////////////////////////////////////////////// 



lOS: 
13S: 



14J: 



TST 

BEO 

CLR 

LORD 

DEC 

BLE 

INC 

CNP 

BEO 

CNP 

BEQ 

CMP 

BEO 

CNP 

BEO 

CNP 

CNP 
BEO 
BR 

RTS 



Rl 

141 

RO 

Rl 

RO.ilO 
13i 

R0.il2 
13t 

R0.tl4 
13i 

R0.tl5 

ra:t4o 
ui 

12S 

PC 



TEST CHRR COUNT 
RETURN IF ZERO 
SgT^FJ^ NON-PRINT CHRR 

DEC CHRR COUNT 
fV^JUmil DONE 
fCXT CHRR 
CHRR = BELL ? 
YES. rCXT CHAR 
CHR^ r BS? 
YES. NEXT CHRR 
CHRA = LF? 
YES. rCXT CHRR 
CHRR = FF? 
YES . NEXT CHAR 
CHM s CRf 

YES. RESET CHAR 

CONTINUE 

RETURN 
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G04 



004406 
004410 
004414 
004420 
00442H 
004426 
004430 
0044S 
004436 
004442 
004444 
0044% 
004450 



00HM60 
004464 
004470 
004472 
004476 



004510 
004514 




004560 
004564 



104413 

104416 
012700 
104415 



013?0l 
012700 
104415 
005301 
414 



012700 
020227 
OOSJW 
01270 0 
000761 
104414 
Q12701 
012700 
104416 
104414 
012701 

°044°° 

104415 
104414 

\m 

104416 
013701 
012700 



8 




004602 

00%10 
004614 



020227 
000766 



000020 
000105 

000177 



001150 
000061 



000144 

000063 
000202 

000062 

000400 
000105 



000105 

000177 

001162 

§Sl^ 

001150 
000060 



000143 
000061 



;/////////////////////////////////////////////////////////////////'//// 



;TEST25 - 



BUFFER TEST 



•THIS TEST OCCK S THE CHflRRCTjR BUFFER OF TICLfilBOHHILE PRINTING 
I ANY E PRINTED INDICATES RN INCORRECT LORD OR BUFFER ACTION. 

;////////////////////////////////////////////////////////////////////// 



TEST25: PRTHDR 
NOV 
NOV 
NLORO 
NOV 
LORD 
CLR 
NOV 
NOV 

IS: LORD 
OEC 
BEQ 
INC 
Cff» 
BLT 
NOV 
CNP 
BLT 
NOV 
BR 

21: PRINT 
NOV 
NOV 
NLORO 
PRINT 
NOV 
NOV 
NLORO 
NOV 
LORD 
PRINT 
NOV 
NOV 
NLORO 
NOV 
NOV 
CLR 

3S: LOflO 
OEC 
BEQ 
INC 
CMP 
BLT 
NOV 
BR 



•16.. Rl 
I'E.AO 

•177,R0 

R2 

HIOTH.Rl 

•61, 

Rl 



R2,^100. 
IS 

fl63.R0 

R2,il30. 

11 

lb2,R0 
11 

&6^R1 
•'E,r6 

&4..R1 

•'e,r6 

•177,R0 

1256.. Rl 
•'E,r6 

HIDTH.R1 
•60,rA 

R2 

Rl 
41 

R2 

R2,»99. 
31 

•61, RO 
31 



PRINT TEST »CRDER 

str am count 

5t EOiflR 
lord BUFFER 

sn rubout chrr 




_ count 
coujm count 

lSao chrr 
oec colunn count 
print line uhen loaded 
inc cmr count 
DONE ores? 

NO. CONTINUE 
SEt NEXT CHRR 
DONE 3:5? 

NO. cgraiNUE 

»T rcrr char _ 

CONtlNUE LOADING CHARACTERS 



s^'cHy^'^xJNT 




INT 



SET E CHRR 
ER 

~ LINE 
COUNT 
SET E CHRR 

k^lSoU?* CHRR 

CLEAR BUFFER 

BLANK LINE 

^T CHAR COUNT 

SET E CHAR 

LOAD BUFFER 

SET COLUNN COUNT 

SET CHRR 

CLEAR CHRR COUNT 

LOAD CHAR 

DEC COLUNN COUNT 

PRINT LINE UHEN LOADED 

INC CHAR COUNT 

DONE ZEROS* 

NO. CONTINUE 

YE§. SET NEXT CHAR 

CONTINUE 



HQ4 
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001162 


41- 


PRINT 




ffiSiSS 




nbv 
nov 










nLOAO 






000177 




NOV 
LOAD 




012700 


000060 




nov 




01?7Q2 


000011 




nov 


01^ 
li441§ 


001150 


51: 


nov 

LOAD 










DEC 




QDIQIQ 
005200 






BNE 




00(X}78 




IN^^ 


OfJSfefcfc 


02QD27 




CdP 










BLO 


004£»7H 


012700 


000060 




nov 




01270? 




6S' 


nov 




00^301 




7$: 


DEC 


OCNTOb 


001*3 






ore 


0OH710 


104414 
012701 


001162 




PRINT 


Q0H714 
504720 


000400 




nov 


012786 


OOOiOS 




nov 


004724 


104416 






mooo 


004 726 


012700 


OtK}061 




nov 




qiStS 


oonsfi 




nov 


00473b 


104415 




8S: 


LOAD 


004740 


005200 






INC 


004742 


020027 


000072 




cnp 


0047% 


109402 






BLO 


004750 


012700 


000360 




nov 


0047S4 


005301 




SS: 


DEC 


0047Sb 


rai367 






BNE 


004760 


104414 


001162 




PRINT 


004764 


000137 


006644 




inp 



Rl 



.SLF 
•177, RO 



•60, RO 
•9..R2 
UIOtH.Rl 

R2 
7$ 

RO 

R0,t72 
65 

•60, RO 
•10., R2 
Rl 
5S 
.JLF 

4256.. Rl 
•'E,r6 

!S4tH?Ri 
RO 

R0,^72 

i60,R0 

Rl 
6S 
.SLF 

fexiT 



e CHAA 
LOAD BUFFER 

Sn CHRR 

SET GROUP COUNT 

SET ChST COUNT 

LOAD CHRP 

DEC GROUP COUNT 

FINISH GROUP 

SET NEXT CHAR 

GOOD CHAR' 

YES, CONTINUE 

NO 'RESET CHAR TO ZERO 

RESeT «0UP COUNT 

DEC CHAR COUNT 

FINISH LINE 



OUHT 
T E CHAR 
LOAD BUFFER 



COUNT 

LOAD CHAR 
SET NDCr CHAR 
GOOD OMR? 
YES^ CONTINUE 

: T CHAR 
_JC CHAR COUNT 
FINISH LINE 
PRINT LINE 
EXIT TEST 



ID4 
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004770 
00M772 
004776 
005002 



005012 
00501H 
QOSOlt 




005042 
005044 

005050 

005052 
00505H 
005056 
005060 



104413 
012703 
012702 
011300 
001417 
013701 
104415 

005X1 
001374 
005302 
001403 
104414 




020105 
040040 
020115 
021440 
000000 



005050 
000003 



001150 



0Q1164 
001162 

006644 



;////////////////////////////////////////////////////////////////////// 

;TEST2b - OVERPRIffT TEST 

•THIS TEST PRIffTS FOUR LINES OF fLTERNflTING CHARACTERS AND SPACES 
;IN A CHECKERBOARD PATTERN. EACH LINE IS OVERPRINTED TWICE. 

:////////////////////////////////////////////////////////////////////// 



TEST26: 

IS: 
2S: 



3S: 



41: 



5S: 
6S: 



PRTHDR 

MOV 

NOV 

NOV 

BEO 

NOV 

LOAD 

SUAB 

DEC 

BNE 

DEC 

BEQ 

PRINT 

Print 

TST 

BR 

JHP 



i6S.R3 
•3.ft2 

(R^),RO 
5S 

WIDTH, Rl 

RO 
Rl 
3S 
R2 
4S 
.ICR 

If 

IR3)+ 
II 

EXIT 



.ASCII /E / 

.ASCII / a/ 

.ASCII /n / 

.ASCII / •/ 

.WORD 0 



TABU POINTER 
OWRINT COUNT 



PRINT TEST HEADER 
SET 

SET _ 
GET CHAR PAIR 
EXIT IF DONE TEST 
SET COUJHH COUNT 
LOAD CHAR 
SET NEXT CHAR 
DEC COLUNN oOUNT 
FINISH LINE 
DEC OVERPRINT COUNT 
mCH IF DONE OVERPRINT 
PRINT LINE 



INT LINE 
INC TABLE POINTER 
PRINT rCXT LINE 
EXIT TEST 



;END OF TABLE 



t 



! 
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:////////////////////////////////////////////////////////////////////// 



;TEST27 - 



KULTIPLE LINE FEED TEST 



0050&2 104413 

m nm 



ODB07Z 
00507& 
OCSlOO 

o^iS 

005112 

m& 

005122 
OOSIHO 

005156 
Q^lEtO 
005162 
005164 



004737 
104417 
121327 
101406 
012701 
121327 
IHJ 




lli . 
104416 
105723 
003342 
000137 



005170 001 
005173 010 
005176 000 

005200 



005170 

012650 

000001 

000035 
OOIKIIO 

001150 

QO0O3b 

000036 
000055 

001162 

006644 

002 
' 020 



•NUKBER I^INTEO IfOICATES NlffSER OF Lir€ FEEDS FOLLOUING THAT LINE. 
;0A9€0 fSFERENCE LINES ARE PRINTED TO AID IN CHECKING PROPER 
;LINE FEEDS. 

TEST27: PRTHDR 
IS: S8?B : »SP) 



2S: 



3S: 
4S: 



004 5S: 
040 



J5R PC,S^ 
CTLOAO " 
CKP8 (R3),«l 
BLOS ^ '2S " 
NOV •29., Rl 
CNP8 n c (R3);t8. 

W % '\ 
NOV '/v tWDTH.Rl 

NOV i30.,Rl 

DEC \R1 - 

m . ». 

NLOAO V - " 
TSTB, (R3)+ 
BGT — 1S.^ 
JHP EXIT. 



PRINT TEST HEADER 

CONVERT 8 > % , 
LOAD NUKSER ^/ 



TEST 8 
PRINT 



. .NT FULL DASH LINE IF 0 OR 1 
SET DASH LENGTH 

SCT CHAR COUNT /, : 

gC CORtlNUEv V' ^ ; 
^T»TO 30 ' " ' 
SUBTRACT ONE 



NE: 



LF.CqUNT 

LF mR 



LOAD LP'S 

inc table pointer. 
finishtIst 



EXIT.vTEST.f 
.BYTE.; 1,2,4,B.,16.,32.,0 



.EVEN 



> ^ - X ' 



4^* * C 



NOirOEC-ll-OZUC-B nftCYll E7(10Qfc) 
DZLflEB.Pll 28-FEB-77 15:08 



oosaoo 


104H13 




0052Q2 


012701 


000030 




mi 


005222 


005214 


00137M 




005216 


0G0137 


006644 


005222 


005130 


000 




005226 





01-*KW-77 14:45 
PPIffTINC TESTS 



KD4 
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;////////////////////////////////////////////////////////////////////// 
;TEST30 - RIBBON FEED TEST 

•THIS TEST PRINTS A SINGLE COLUTf OF 24 LINES OF X'S OOUN THE LEFT 
;HAND NPRGIN OF THE PAGE. 

;////////////////////////////////////////////////////////////////////// 

TEST30: 



IS: 



2S: 



PRTHDR 
NOV 
PRINT 
DEC 
BNE 
JMP 

.ASCIZ 

.EVEN 



•24., Rl 

ftl 
IS 

EXIT 
/X/<12> 



; PRINT TEST HEADER 
;SET LINE COUNT 

joErLliSE'ckuNT 
FINISH TEST 
;EXIT TEST 



005226 104413 

005230 104414 005240 

005234 000137 005262 

005240 041007 046105 003514 

0052% 052040 051505 003524 

005254 003415 003412 000015 



;////////////////////////////////////////////////////////////.'///////// 

;TEST31 - BELL TESi 

I THIS TEST Hia SOUND 5 BELLS WHILE PRINTING "BELL TEST" 

;////////////////////////////////////////////////////////////////////// 

; PRINT TEST HEADER 
j^IT^fEST 

IS: .ASCIZ <7>/BaL/<7>/ TEST/<7><15><7><12><7><15> 



TEST31: PRTHDR 
PRINT 
JNP 



tEOP 



.EVEN 



L04 



KiimEC-n-D2Lf£'B rtftCYH 27(1006) 

OZLflCB-PU 2a-FEB-77 15:08 




005304 
005308 



005316 
005120 
00b322 
005324 
005326 
005330 
005332 
005332 
005334 
005336 



005336 

042737 100000 
005327 

012737 
000001 



n 

001405 
000005 
004710 
000240 
000240 
000240 

000137 
006644 
000000 



005336 



000042 



Ol-riflR-77 14:45 PftGE 49 
Ef€ OF PftSS ROUTINE 

.S8TTL END OF PASS ROUTINE 

4lNCREf€lfr THE PflSS NUMBER (SPftSS) 
»IF THERES fl nOWITOR 60 TO IT 
»IF THERE ISN'T JUMP TO EXIT 



JEOP: 

NOP 
INC 
BIC 
DEC 

SEOPCT: .UORO 
BGT 
NOV 

SENOCT: .UORO 

$GET42: fiOV 
BEQ 
RESET 

SENOAO: J5R 
NOP 



SOOAGN: 



NOP 
NOP 



JMP 

SRTNflO: .UORO 
SPASS: .UORO 



iPASS 

•100000, SPRSS 

(PC)+ 

SOOAGN 

(PC)+,a(PC)+ 
1 

SI42.R0 
SOOAGN 

PC,(RO) 



a(PC)+ 

EXIT 
0 



;;INCREMENT THE PASS NUMBER 
DON'T AUOU A NEC. NUMBER 
••LOOP? 

• •YES 

•I RESTORE COUNTER 

;;GET MONITOR ADDRESS 

BRANCH IF NO MONITOR 

CLEAR THE UORLO 

GO TO MONITOR 

SAVE ROOM 

FOR 
••ACTll 

;; RETURN 

;; NUMBER OF PASSES 



NAirCCC-U-OZLAC-fi NKYll 27(10tt) 
OZLflEB.Pll 28-fEB-77 15:0G 



Ol-mK'T? 14:45 
OPTIOh TESTS 
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SBTTL OPTIOM TESTS 



////////////////////////////////////////////////////////////////////// 
TEST 50 - SECONDARY CHARACTER SET 

////////////////////////////////////////////////////////////////////// 



0053M0 104413 
005342 012737 

104414 

w 

104414 



uuxjao 

005416 000137 




005440 OOnOQO 



m 

005452 



005462 

mi 

00S47H 



005506 
005510 
005514 
005520 
005524 
005530 
005532 
005536 



013700 

mi 

003412 

gos^ 

01 3702 
042702 



000004 

K 

005442 
0G54X 




.J141g 
000761 
104414 
013701 
162701 
104414 
000755 
104414 
000207 



006644 




001150 
005440 



5440 
j440 
177600 
000177 



001162 
001150 
000003 
005434 

001162 



TEST50: PRTHDR 
005422 nOV 

IS: PRINT 
005440 NOV 
JSR 
PRINT 
005440 MOV 
JSR 
PRINT 

JHP 

T50PCT: 0 

m Mi 

SP3: .ASCIZ 
CHLO: 0 



PRTSET: 


NOV 




SUB 


IS: 


NOV 




isg" 




BLE 


2S: 


INC 




NOV 




BIC 




CHP 




BEQ 




BR 


3S: 


PRINT 




NOV 




SUB 




PRINT 




BR 


4S: 


PRINT 




RTS 



•4.T50PCT 

PC^SET 

&240 CHLD 
PC.PftTSET 

tpCT 

EXIT 

/•is/ 



HIDTH.Rl 
13. Rl 
CHLO.RO 

Rl 
3S 

3I^.R2 

•177toO,R2 

•177,R2 

4f 

IS 

,5LF 

fllOTH.Rl 



PRINT TEST HEADER 
SET PAIR COUNT 

PRINT ENTIRE CHARACTER SET 

PRINT Oam CHARACTER SET 
BLANK LINE 

EXIT TEST 



;3 SPACES 
•CHARACTER HOLD 



FETCH CURRENT CHARACTER 
LOAD CHAR 
DEC CHAR COUNT 

BRAfOlIF • OF COLUHNS IS EXHAUSTED 




r. LAST CHAR OF SET IS LOADED 

GO lOADJCXt CHAR 
PRIHTPARTIAL SET 
SET COLUNN COUNT AGAIN 
ADJUST COUNT AGAIN 
LOAD THRS^ SPACES 
CONTINUE LOADING SET 
PRINT LINE 
RETURN 



miNDEC-ll-0ZU)E-6 tMCYll 27(100b) Ol-HRR-T? 14:45 PAGE 51 
Oaia.Pll 2B-FEB-77 15:08 OPTION TESTS 



.SBTTL miNTENMCE AIDS 



ND4 



005540 005037 
005544 104413 
0055% 012700 
013701 
104416 
104414 
005564 012702 
013701 




005652 

000041 
00II50 

001162 
000005 
001150 




001162 



;////////////////////////////////////////////////////////////////////// 
;TEST60 - LIFE TEST 

•THIS TEST PRINTS 2 FULL LINES OF EACH PRIHTflaE CHARACTER 
THE SECOND LINE IS OVERPRINTED 4 TINES TO CONSERVE PAPER 
AT THE END OF EACH PASS TtfiOUGH TH| ENTIR| PRINTABLE CHARACTER 

•SET, THE PASS COUNT Uia BE PRINTS ON TIC LA180. 

:////////////////////////////////////////////////////////////////////// 



i52 000000 



TEST60: 


CLR 


IS: 


PRTHDR 




NOV 


2S: 


NOV 




HLOAO 




PRINT 




NOV 


3S: 


NOV 




NLOAO 




PRINT 




DEC 




BNE 
PRINT 




INC 




CNP 




!S 




PRINT 




mv 

JSR 




CNLOAO 




PRINT 




BR 



PASCNT 

•41.R0 
UIOtH.RI 

,ILF 
45.R2 

ui6th,ri 



PASCriT: .WORD 




T.-(SP) 



CLEAR PASS COUNT 

PRINT tST HEADER, FEED BLANK LINES 
SCT FIRST CHAR 



SET COLUHN COUNT 
LOAD LINE 
PRINT LINE 
gr OVERPRINT COUNT 
S|t^C0gMN COUNT 

OEc'ovyp^INT COUNT 
FINISH OVERPRINT 
ADVAN^ Pfm 

TEST CHAR 
LOAD PASS COUNT 
LOAD 



NESG 
STACK 



PRITfT 
STMT 
PASS COUNT 



PASS 



N«irCEC-ll-02LPE-e WflCYll 
DZLflEB.PH X-fEB-77 15:08 
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nRINTEI«MC£ AIDS 
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OOOHS 

1/ 




QOilSQ 
DOIOOO 



1732QH 



0057 
005756 
OOSTbO 
005764 



0001?? 



UMC3 
012700 
10HM15 
10HH14 001162 
000735 



; ///////////////////////////////////////////////////////////// ////////. 

;TEST61 - SCOPE 0RIV€ RQUniC 



THIS TEST UILL LOAD A CHfWAC 
IF mVCH 9 IS DOUN. FULL LIl 
IF SWITCH 9 IS UP. t tC CH » MIU , 
H!kUM.T. NO Life FODS OR CARR 



SET IN SUITOt REGISTER BITS 0-6 
OAOED I PRINTED (LF). 



UILL 




ONCE AM) T)CPRO«An 
HILL BE SENTBY TIC 



;////////////////////////////////////////////////////////////////////// 

TEST61: PRTNOR 



US 

•tCl^.RO 
RO.tlS 

lli 

RO^aiZ 



US: 
12S: 



2S: 



3S: 




PRINT TEST (CADER 
CHECK SHITCH «G FIRST 

CHwWCTER 

; uMwra bits 

COLUNN COUNT 

_ COUNT 
CHAR* 
C COLUMN COUNT 




COUNT 

LINE 
HRLT 
CHAR 
COUNT 

-^^-.^ NOT DONE LINE 
LOAOCD HORE THAN UIOTH' 
yiSTCXJEPR BUFFER 

;PRINT LINE, ADVANCE PAPER 
•CONTINUE 



00S770 
a0577M 
005776 
006002 

QObQlO 
006012 
U6 



00602M 
006030 
00603H 
0060M0 
Q060H2 
0060% 



3-FEB-77 15:08 



i04Hi3 
105737 
100473 
1 04401 
1 05777 
100375 
104420 
017700 
0100% 
004737 
0127% 
004737 
013701 
104416 
104414 
000772 



001173 

015205 
173072 



173064 

010344 
000200 
010344 
001150 

001162 



0i-«flft-77 14:45 
rtfllNTENflNCE ftlOS 



CD5 



PAGE 53 



://///////////////////////////////////////////// f/ /// 



;TEST62 - 



LI»€ PRINT TEST 



:THIS TEST PRINTS FULL LINES CONTINUOUSLY OF iWPTEVER CHflRftCTER 
IS TYPED ON THE COtgOLE KEYBORRD. TO CHRNGE CHRRRCTERS. RESaECT 
THIS TEST. RN gRRORTCSC HILL BE PRINTED IF THIS TEST tS SELECTED 

I AND fl CONSOLE TDWINRL DOES NOT EXIST. 

;////////////////////////////////////////////////////////////////////// 



TEST62: PRTHDR 
TSTB 

ani 

TYPE 

2S: TSTB 
BPL 
CHECK 
NOV 
NOV 
JSR 
NOV 
JSR 

IS: NOV 
NLORO 
PRINT 
BR 



fTPFLC 

TERR 

.TCHRR 

dTKS 

2S 

aTKB.RO 

RO,-lSP) 

PC'ITYPEC 

•CftLF.-(SP) 

PC.rriPEC 

ui6th,ri 



PRINT TEST HERDER 

CHECK IF TERNINM. EXISTS 

EXIT IF NONE 

TYPE INSTR 

WRIT FOR KYBD FLRG 

;C»€CK CHRR FOR CONTROL 

on CHRR 

CHRR ONTO STRCK 

ECHO CHRR 
•SENll CR-LF 

;SET COLUNN COUNT 
LORD LINE 
PRINT LIIC 
CONTINUE 



nfiiroec-ii-02U€-B fiftCYii 27(ioobJ 

OZU€B.Pn 29-fEB-77 15:06 



006050 




114 

oobiso 

006128 

006134 
006136 
QQ6142 
m6144 
006150 
006152 
Q06156 
006162 



1 04413 
105737 
1^2 

017700 




001003 
0127% 




U347 
0127% 
004737 
000742 



001173 

8^1161 
173004 



172776 

010344 

000015 

000012 

000012 

000015 

000014 

000200 
010344 



Gl-f1f«-77 14:45 
miNTENfMCE RIDS 
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;///////////////////////////////////////////////////////////////////' 



CHRRRCTER PRIHT TEST 



;TEST63 - 

IF THIS TEST IS SELECTB) AND A CONSOLE TERMINAL DOE? NOT EXIST, 
•AN ERROR NESSAGE UILL K PRINTED. 

;////////////////////////////////////////////////////////////////////// 

TEST63: PRTHDR 



006164 104414 01522S 
006170 000137 006752 





TSTB 




BNI 




TYPE 




TYPE 


IS: 


TSTB 




BPL 




CHECK 




NOV 




NOV 




JSR 




LOAD 




CNR 




BNE 
NOV 


2S: 


& 




BNE 
NOV 


3S: 


^ 




BTC 




NOV 


4S: 


JSR 




BR 


TERR: 


PRINT 




JHP 



STPFLC 
TERR 
.TCHAR 
ISCRLF 

Atks 

IS 

aTKB.RO 

FD,-\SP) 

PClSTYPEC 

RO.ICR 
2S 

•LF,-(SP) 

S,ILF 
3S 

•CR,-(SP) 
IS 

•CRLF,-(SP) 

PC,ST*PEC 

H 

kLECT 



PRINT TEST HEADER 
CHECK IF TERMINAL EXISTS 
EXIT IF NONE 
TYPE INSTR 
SEND CR-LF 
MAIT FOR KYBD FLAG 
UAIT FOR FLAG 
CHECK CHAR FOR CONTROL 
GET CHAR 
CHAR ONTO STACK 
ECHO CHAR 
LOAD CHAR 
SEND LF AFTER CR 



;SEND CR AFTER LF 



;SND CRLF AFTER FF 



; CONTINUE 

; PRINT NO CONSOLE NESG 
•RETURN TO SELECT TEST (HALT) 



EOS 



flfll.CeC-U-OZLfC-B 



fWCYll 27(1006) 01-W«-77 14:45 PftGE 55 



OZLflEB.PU 



28-FEB-77 15:08 



>17H 
>17b 
00S202 
006204 
006210 
006214 




006232 
006234 

006236 
0062H2 



0Q625M 



006264 



0063X 
006332 
006336 



104413 
105737 
100770 
104401 
104401 
012701 
012700 
104415 
1K777 
100375 
104420 

0177Dn 
04270U 



_142_ 
ffi27Q0 
001440 
0100% 
004737 
005726 
IJ " 




001336 
0127% 
004737 



001173 

015415 
015464 
016174 
000177 

172646 



172640 
177600 
000001 

000002 



010344 

000015 

000012 

000012 

000015 

000014 

000200 
010344 



fMINTENmce AIDS 

////////////////////////////'////////////////////////////////////////// 



TEST 64 - 



SELECTED mTTERN PRINT TEST 



1) TYPE Oesm) CHARACTERS INCLUDING. WCRE APPROPRIATE. LA180 
PRINT COnmNDS (IE.. LF OR CR OR TERKINATE STRIAg BY 
TYPING CTL-A. PRINTING HILL BEGIN. 

OR 

AN LF PRINT COHHAND HILL BE INSERTED AND PRINTING HILL BEGIN. 

TO STOP PRINTING AfC ENTER fi NDJ PATTERN TYPE CTL-SPACE. 
TO SELECT A NEU TEST TYPE OELCTE/RUBOUT. 
TO CHANGE • OF COLUNNS TYPECTL-C. 

////////////////////////////////////////////////////////////////////// 



TEST64: PRTHDR 
TSTB 
BHI 
TYPE 

ACCEPT: TYPE 
NOV 
NOV 
LOAD 

2S: TSTB 
BPL 
CHECK 

NOV 

BIC 

CHP 

BEQ 

CMP 

BEQ 

NOV 

JSR 

TST 

NOVB 

CNP 

BNE 

NOV 

BR 

4S: CNP 
BNE 

NOV 

&S: % 
BNE 

MCV 

8S: JSR 



STPFLG 

TERR 

,T64nSG 

!tH06EL 

ItABL64,R1 

•177, RO 

BTKS 
2S 



aTI3.R0 

•1776O0,R0 

•1-RO 

cttA 

•2.R0 

CTtB 

RO,-(SP) 

PClSTYPEC 

(S^)-^ 

R0,(R1)+ 

RO ICR 

4S 

•LF,-(SP) 
BS 

R0,ILF 
6S 

•CR,-(SP) 



TERMINAL EXI5T<; 



PRINT TEST 
CHECK If 
EXIT IF NONE 
TYPE BRIEF INSTRS 
RING C0r60LE BELL THICE 
SET POINTER LEFTMOST IN TABLE 

RESET PRINTER BUFFER POINTER. 

UAIT FOR CqrfiOLE raO FLAG 
CICCK FOR KBOSnTROL CHARACTERS 
ATO CICCK SilTScS ALSO. 
SAME CHAR TO RO 
STRIP UNHANTED bits 

BRANCH IF CONTROL A 

BRANCH IF CONTROL B 
CHAR ONTO STACK 
ECHO CHARACTER TO CONSOLE 



adjust stack 
chaTtc 



.•FF 
2S 

•CRLF,-(SP) 
PC.ST^C 



.TO PRINT TABLE 
SEND LF AFTER CR (TO CONSOLE) 



;SEND CR AFTER LF (TO CONSOLE) 



;SEND CRLF AFTER FF (TO CONSOLE) 
; CONTINUE ACCEPTING PATTERN 



FOB 



f1firrCEC-lI-02LflE-B NflCYil 27(100&) 01-HflR-77 14:45 PflGE 56 
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J|T <|P>* 



OiblTM 

01013^ 008512 
Q0b3b0 G004H2 



CTLfl: 



MOV 
BR 



0Q&3U 
D08370 
006374 
006402 



i»41« 
006416 
942 



006H32 
006434 
006436 
006442 
006444 
0064% 
006452 
006454 
006460 
006%4 



g2701 
001437 
162701 
013737 
010137 



163737 



003001 
000407 
005337 

000767 
012702 
000764 
112721 
010137 
000400 



016174 
016174 

001150 006506 
006510 
016174 
016174 

006510 006506 
006506 



006510 



016174 

000012 
006512 



CTLB: CMP 
BEQ 
SUB 
NOV 

nov 

MOV 
SUB 

PROPAT: nOVB 
OCC 
BGT 
BR 

IS: DEC 

|q 

OUNPAT: HOV 
BR 

DUNCOL: nOVB 
NOV 
BR 



&H,R1 



R1.END«DR 
PWRT 

•TRBL64,R1 

PRPflT 

|T^64.R1 

uidth.c6lctr 
ri.chActr 

lTAi.64,Rl 

•TWL64:R2 

CHflCTR.WLCTR 

(R2)i.(Rl)+ 

COLCTft 

II 

OUNCOL 

CHRCTR 

DUNPRT 

PROPRT 

ITRBL64,R2 

PROPRT 

•LF.(R1)+ 

PR^T 



006466 012701 016174 

006472 112100 

006474 104415 

006476 020137 006512 

006502 001771 

006504 000772 

006506 000000 

006510 000000 

00C612 016240 



PRPflT: 
IS: 



NOV 

NOVB 

LOflO 

CHP 
BEQ 
BR 



•TflBL64.Rl 
(RlH.Rfi 



RhENDRDR 

PR^T 

IS 



COLCTR: 0 
CHflCTR: 0 
ENDflOR: •TflBL&4444 



006514 005037 001120 

QQ6§2P QQ!*737 001764 

006524 004737 002032 

0065X 000137 006644 



TEST7b: aR 
JSR 
JSR 
JNP 



SERSU 
PC, QUO 
pel Of* 
EXIT 



006534 012737 052525 001120 TEST77: MOV 

006542 004737 001764 JSR 

0065% 004737 002032 JSR 

006552 000137 006644 JNP 



•52525, SERSU 
PC, QUO! 
PC!QU02 
EXtT 




ADJUST STACK 

CONTINUE ACCEPTING PATTERN 

, . ,OUS PATTERN 

CURRENT POINTER TO ENDAOR 
GO PRINT rCU PATTERN 

IF POINTER IS LEFTNOST 

RESUHE PRINTING PREVIOUS PATTERN 

GET PATTERN lScTH InTO R1 _ 

St • OF CQUJte into counter 

GET • OF aStS INTO COUNTER 

REHAINING COLUHNS INTO COLCTR 

PROPAGATE PATTERN TO • OF SPECIFIED COLUNNS 



RE-ADORESS PAHERN 

INSERT LA180 PRINT COHNAND 

GO PRINT REPEATED PATTERN 

;SET POINTER LEFTNOST 

;LOAO CHAR (FROH RO) TO LA180 _ 
ALSO CHK CONSOLE KBD AND CPU SUS 
END OF TABLE DATA* 
YES, PRINTIT OVER. 

•NO, CONTINUE LOADING LA180 BUFFER 

jCXUNN C0UHTER_ 
\SS^^^*i OF niMT DATA. 

CLEAR SWITCH (TO PARALLEL) 

mm s^If'^" "''^ 

EXIT TEST. 

:SET SWITCH (TO SERIAL) 
INITILIg ACTFST AND SELECT DRIVER 
TYPE INTF HISC IF CONSOLE 
EXIT TEST 



flOINOeC-n-DZLftE-B fWCYli 27(1006) 

OZLflEB.PU 28-FE8-77 15:08 



GD5 



OObSSb 00S737 008614 

006562 00G177 000022 

006566 005337 006606 

006572 001401 

00657M 000002 

006576 004737 006614 

006602 000177 000002 

006606 000000 

006610 000000 

006612 007020 



Ol-flflR-77 14:45 
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P«GE 57 



;//////////////////////////////////////////////////////////////'//////// 

.SBTTL aOCK IMTERRUPT SERVICE ROUTINES 

;////////////////////////////////////////////////////////////////////// 



DCI: 

LKSRV: 

IS: 



CNTR: 
TORTN: 



JSR 
JflP 

DEC 
BEQ 
RTI 
JSR 
JMP 

.UORO 
.UORD 



PC.SRDCI 
aT6RTN 

CNTR 
IS 

PC.SRDCI 
aTfiRTN 

0 
0 



niNCNT: .UORO 7020 



;DIbRBLE KUll-P INTERRUPT 
•TirC OUT RETURN 

;DEC TINE COUNT 
TINE OUT' 
;N0. RETURN 

;0lSfleLE KUU-L INTERRUPT 
•TINE OUT RETURN 

;KU11-L TiniNG COUNT 
;TinE OUT RETURN ROORESS 

:60 HZ LINE FREO. MINUTE COUNT 

;SET TO 5670(8) FOR 50 HZ. LINE FREQ. 



;////////////////////////////////////////////////////////////////////// 

; SUBROUTINE TO DISABLE CLOCK OPTION INTERRUPTS 

;////////////////////////////////////////////////////////////////////// 



006614 


105737 


001155 




SROCI: 


TSTB 


006620 


001410 








BEG 


006622 


002404 








BLT 


006624 


042777 


000100 


172306 




8IC 


006632 


000403 








BR 


006634 


042777 


000100 


172272 


IS: 


BIC 


006642 


000207 






2S: 


RTS 



CKFLRG 

2S 

IS 

•8IT6,aLKS 
25 

•6IT6,9PLKS 
PC 



; CHECK aOCK OPTION FLAG 

RETURN IF NONE 
; BRANCH IF KUll-P 

DISABLE KHll-L INTERRUPT 
; RETURN 

; DISABLE KUU-P INTERRUPT 



HQS 
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aOCK INTERRUPT SERVICE ROUTIICS 



0Ob64M 
00b650 




OObTOH 
00E>710 
006714 
006720 
006722 
006726 
006730 
006732 
006740 
006742 
0067% 



032777 

001031 
105737 



001402 
000137 
005237 
013700 
006300 
00576C 
003005 
001767 
012737 
000765 
012706 
000170 



; /////////////////////////////////////////////// ' "/ 



.SBTTL TEST EXIT ROUTirC 



; ////////////////////////////////////////////// V//// / / / , 



007140 

040000 172264 

000400 172?-4 

001154 

001153 

007510 
001146 
001146 

013356 



000020 001146 

001100 
013356 



EXIT: 



2S: 
3S: 



4$: 



JSR 
BIT 

^ 

BNE 

TSTB 

BfC 

TSTB 

BEQ 

JMP 

INC 

MOV 

A5L 

TST 

BGT 

BEO 

NOV 

BR 

NOV 

JHP 



PC,KYBDF 
•9114, aSUR 
3S 

•sue.asuR 

sele6t 

TLOOP 
3S 

TROME 

2S 

TSEL 

STSTNM 

STSTNM^RO 

RO 

TAT(RO) 

4S 

2S 

•20,STSTNM 
31 

•STflCK.SP 
aTAT(RA) 



CHECK FOR KYBO FLPG 
LOOP OH TEST SWITCH' 
RETLW TO TEST 
SU l«G TEST SELECTION' 
YES. SELECT TEST (HALT) 
KYB6 CTRL - LOOP OM TEST' 
YES. RETURN TO TEST 
KY96 CTRL - RUW TEST ONCE" 
NO. CONTINUE 
YE§x»^CT TEST 
INCtoCNT TEST NUMBER 
GET NEW TEST NUMBER 
SET TflOLEPOINTER 
CICCK RMRESS IN TRBLE 
OK. CO TO TEST 
ZEftO. SKIP TEST 

END 6f SEO. - RESET TEST • TO 20 
TEST NEU NUTfiER 
RESET 57 1^ 
GO TO TEST 



IQB 
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.SBTTL ROUTINES TO SELECT DESIRED TEST 



00b756 
0067S2 
OObThb 
006772 
00677E, 



Q0700G 
00700b 
007010 
007016 
007022 
007026 



0070HO 



00H737 
105037 
1( 
It 

0OM737 
OOOOOG 



032777 
001403 

OlTTtM 
042700 
010037 



88^ 



744 



006614 
001152 
001153 
001154 
007140 



000400 

177777 
172120 
177700 
0011% 

0133S6 

I33§6 



007060 
007062 



WW 



WfufC 

007074 
007100 
007102 
007106 
007106 
007110 



004737 007140 

0100% 

005000 

032777 OOOSOO 



123700 001152 



137 006752 



012600 
C30002 



172134 
001152 



172052 



; /////////////////////////////////////////////////// ////// ///////////// 

; ROUTINE TO SELECT TEST FROM SU REG, BITS 0-5 

;////////////////////////////////////////////////////////////////////// 

SELECT: 



IS: 



2S: 



JSR 
CLRB 
CLRB 
CLRB 
JSR 
HflLT 



BIT 
BEQ 

novB 

MOV 
BIC 
NOV 
flSL 
TST 

«bv 

JMP 



PC.SRDCI 
STTONE 
TROfC 
TLOOP 
PC.KYBDF 



•SUB.aSUR 
21 

t-l.STROfC 

aSUR.RO 

•tCT^.RO 

RO.ITSTNn 

RO 

TAT(RG) 

•frflCK.SP 
aTAT(Rfi) 



; CLEAR CLOCK INTER 
; CLEAR PROGRATI CONTROL FLAGS 



C«CK IF KYBO FLAG 
NO KYBD FLAG • HALT 
UAIT FOR OPERATOR TO SaECT TEST 
CONTIHUE HHEN READY 




TEST ONCE & HALT 
REG 



URNT 
NA§K 

CHECK IF TEST IS IN TABLE 
T_THEK. GET fCU SELECTION 




ro SELECTED TEST 

;////////////////////////////////////////////////////////////////////// 

; ROUTINE TO CHECK FOR KYBO OR SU REG CONTROL 
•CALL: CHECK 

:///////////////////////////////////////////////////////////////////// ^ 



SCHECK: 

IS: 
2S: 



NOV 
CLR 
BIT 

m 

CNPB 

BEG 

JHP 

NOV 
RTI 



RO 

•SUB.aSUR 

& 

strone,ro 
Ulect 

(SP)*,RO 



" ~ RO 




IN SUITCH? 

% '^^^CT^^^^Sf^CHAL?^ DISABLE SU 8) 
;iPOP STACK INTO RO 

•Aeturn 



HfiINDEC-11-OZLfle-B NftCYll 27(100b) 
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007112 
0071 lb 
007120 

00712M 
007130 
00713M 
007136 



100002 
000000 

ilPwoi 

105777 
100375 
000002 



001173 



Q1514M 
17174M 



JOB 

Ol-MfW-77 1M:45 KWE bO 
ROUTINES TO SaECT DESIRED TEST 

//////////// /////////////////////////////^//////////////^///'///"^^ / 

ROUTINE TO MIT FOR OPERATOR ACTION 

///////////////////////////////// /////////// f /////// f^////f 
SHOLD: 



IS: 
3S: 

2S: 



TSTB 
3PL 
HALT 
BR 
TYPE 
TSTB 
BPL 
RTI 



STPFLG 
IS 

2S 

.UTI1SG 

liTKS 

3S 



TERHIHAL TfCRE' 
BRAfCH IF YES 
HALT IF NO 

RETURN ON CONTINUE SWITCH 

TYPE UAIT fCSG 

KYBO FLAG' 

NO. HAIT FOR FLAG 

REtuRN 



007 
007 



40 
% 



58 

66 

72 
007174 
007176 
007202 
007206 
007212 
007216 



007 
007 



lgg37 
10S777 

023727 



007226 



005037 
005037 
104401 
0137% 
104402 

iO^ 

021627 
IC 




007254 



UU/CDC 

007270 

007 
007300 
007304 



005737 

000454 
021627 
OQIOU 
104401 
005737 



001173 
171726 

001142 
000007 

007436 
007440 
015122 
000176 

015132 

000025 

012242 

CK!C»15 

001161 
007440 

007436 

000012 

OOUbl 
007440 



000176 



000176 



;////////////////////////////////////////////////////////////////////''/ 
ICALL: JSR PC,KYBOF 

;/////////////////////////////////////////////////////////■/■''////////''// 

KYBDF: 



2S: 



5S: 



9S: 



lOS: 



7$: 



TSTB 
BNI 
TSTB 



CMP 



HR 



Cf 
BNE 
TST 
CLR 
CLR 
TYPE 
NOV 
TYPOC 
TYPE 
ROCHR 
CNP 

^ 

BR 
^ 

TST 

BEQ 

MOV 

BR 

CMP 

BNE 

TYPE 

TST 



ITPFLG 
IS 
aTKS 
IS 



SUR,ISUREG 
•♦J 

•7,(SP) 
41 

(SP)+ 
20S 

?S«SG1 

a3&G,-csP) 

,0SNSG2 
(SP),I25 

Sntlu 



(SP),tCR 
.IcRLF 

§is,SUREG 
6S 

(SP),ILF 
8S 

.ICRLF 
^OS 



TERMINAL THERE' 
NO. EXIT 
FLAG SET? 

- READ CHAR 
USING HAROUARE SU REG' 

IF NOT 
«ST STACK 
CLEAR NEU SU SETTING 
iJPUT FLAG 

fi ON STACK 

OF FCSG 

CHAR « CONTROL-U ' 

RESTAftT ROUTINE 

e5« CR-LF 
CHECK INPUT FLAG 

LEAVE SU SETTINGS ALONE IF NO INPUT 

SET NEU SU REG 

RETURN TO TEST 

CHAR s LF' 

BRANCH IF NOT 

ECHO CR-LF 

CHECK INPUT FLAG 




K05 



•ttlNOEC-ll-OZLfC-B 
OZLflEB.Pil 28-fEB-77 




Q01H02 



0D7H00 

OOTHOb 
OOTHIO 
007412 
007M20 



007426 012706 

007M32 000137 

007436 000000 

007440 000000 



mCYil 27(1006) 
15:08 

00^436 000176 
177770 
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ROUTIfCS TO Sa£CT DESIRED TEST 



010344 
177770 

007436 
007436 
007440 

000177 



000003 



000064 001146 



001100 
006210 









QQ 

an 


ol: 










BIC 








HUU 




TNT 

IR 




an 

CMP 

RNP 


3S: 


on 
CMP 




BEO 




T5T 




BNE 




Cff» 






6f • 


TST 


IS: 


RTS 


IIS: 


NOV 


JMP 


20S: 


.UORO 


30S: 


.UORO 



^SUREG 
TSEL 

PCTiTYPEC 
•t67,(SP) 



20S 

(SP)^,20S 



•177, (SP) 

•3j(SP) 

KYtoST 

(SP) 

&s 

•64,STSTNri 

lis 

(SP)+ 
PC 

•STACK, SP 
ACCEPT 

0 
0 



^VyW^gJNGS ALOHE IF NO INPUT 
CO TO TEST SELECT (VIA KEYBOARD) 




MASK DIGIT 
SHIFT " 



SWITCH SETTINGS FOR NEW ONE 



AOQ NEU SUITCH 
CHAR = RUBOUT^ 

SELECTION (VIA KEYBOARD) 
CHAft = CNTL C ' 
YES. GET • COLUMNS 
IS 60K = NUL, IE. , CTL-SPACE' 
BRANCH IF NOT 
IS THIS TEST 64 » 
BRANCH IF YES 

;FIX STACK 

•TO UITHIN TEST 64 

;SU SETTING INPUT 
•INPUT FLAG 



NflirCEC-ll-OZLfle-B fWCYll 
OZLAEB.Pll 28-fEB-77 15:08 



007H52 
007H54 
OOTHSb 
007M62 
0O7%M 
007H70 
OOTHTa 
007M76 
007502 
007504 



00S737 
lOHMOl 
104H10 
012605 
080527 





007534 104407 
01c 





Q0b300 
00b300 

m\ 

007bl0 020127 



LOB 
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ROUTINES TO SELECT DESIRED TEST 

;////////////////////////////////////////////////////////////////////// 
; ROUTINE TO SET NUNBER OF COLUMNS FROH CONSOLE DEVICE KYBO 
;////////////////////////////////////////////////////////////////////// 



006614 
014751 



000204 
OOOOQg 

001160 
001161 

oolibo 



88!!^ 

001154 



177600 
000003 

000060 

000067 

177770 



177600 
000060 



KYBDST: JSR 
TYPE 



2S: 



IS: 



3S: 



ROOEC 
NOV 
CMP 
BGT 
CNP 



TYPE 

BR 

NOV 



PC.SRDCI 

,c6LunN 

(SP)+.RS 
R5,il^. 
IS 

RS,t2 

^ioUES 
!SCRLF 

R5,UIDTH 



CL^ CLOCK INTER 
TYPE COLUmS MESSAGE 

iPOP STAST INTO R5 
tkST SIZE OF NUMBER 
TOO BIG. GET AGAIN 
TEST SI2e again 
9MNCH IFOK 

INPUT ERROR - TYPE QUESTION MARK 

;GET INPUT AGAIN 
jOK, SAVE I COLUMNS 



////////////////////////////////////////////////////////////////////// 

ROUTINE TO FETCH TEST • FROM CONSOLE KEYBOARD 
AND DETERMINE TEST ACTION . 

TEST NUrCER MUST BE OCTAL. FOaOUEO BY ONE OF THE 
FOLLOUING CONTROL CHARACTERS: 

PERIX . = 

L = 

S = 



RUN TEST ONCE AND SELECT NEXT TEST 

LOOP ON SELECTED TEST 

START TEST SEQUENCE UITH SELECTED TEST 



////////////////////////////////////////////////////////////////////// 



TSEL: 



5S: 



CLRB 

m 

ROLIN 
MOV 
MOVB 
BIC 



.iQ 
CMP 
BLO 
CMP 
6HI 
BIC 
ASL 
ASL 
ASL 
MOVB 
BIC 
CMP 



TLOOP 

STRONE 

,SELTST 

•tC177,R0 

R0,I67 
4S 

ltC7,R0 
RO 
RO 
RO 

•tC17^,Rl 
Rl,l60 



FLAGS 



TYPE SELECT TEST MESG 
GET TEST SELECTION 

CHECK IF OCTAL NUMBER 
•NOT OCTAL - INPUT ERRO 

;NOT OCTAL - INPUT ERROR 
•OK - STORE DIGIT 



;GET SECOND DIGIT 

I CHECK IF AN OCTAL DIGIT 



miNocc-iiH)zuc-a mcvii 

OZUCB.Pil 28-FEB-77 15:08 



MOB 
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ROUTirCS TO SELECT DESIRED TEST 



QQTbSQ QbQiOQ 
uOTbS uiOBSi 
OOTbSb 





0077a 

8877^ 
007742 



022701 

000170 
IQHMQl 
ItWMOi 
000b74 



000067 
177770 
0011% 
0133Sb 



177777 001153 



000040 
000114 

177777 

000123 

001100 
013356 
1150 
1151 



001154 



IS: 

2S 
3S 
4S 



il 
BIC 



ASL 
TST 
OLE 
NOVB 

ere 

novB 

BR 

BIC 

C«P 

SoSb 

BR 
CHP 

^ 
JHP 

T^ 
TYPE 
BR 



4S 

Hi'*' 

•tCT^Rl 

SiiSYsTTfll 
RO 

TflT(RO) 
4S 

(RS)+.R1 
•tC177,Rl 
Rl,t55 
II 

•-l.TROIC 
3S 

•BITS.Rl 
2S 

i-l.TLOOP 
3S 

I'S.Rl 

•lTflCK.SP 
aTflT(RO) 

■m 



NOT OCTRL - irff>UT ERROR 

not octrl - input error 
ok - nrsk digit 

noI^n^to^I'^It^neI'Slection 
contjwjl chrr 

I s PERIW? 
NO. CONTINUE CHECK 

ST FLAG 
CONTINUE 

:mSK BIT 5 (RLLOU UPPER OR LOUER CASE) 
CHRR s L* 

CONtlNUE 
CHAR s S? 

ALL OK - GO TO SELECTED TEST 

m QUESTION NARK 
GET NEU INPUT 



f1PIfCEC-ll-0ZUC-B HflCYll 
OZLAEB.Pll X-fEB'T? 15:08 
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ROUTirCS TO SELECT DESIRED TEST 



007744 
007752 
00776 0 
00776 2 
0 07766 

010000 
010006 
4 



0026 



0036 



tm 



013777 
032777 
0014Q2 
104401 
01 If 
It 
11' 
032777 
1( 





005777 
100001 
104421 
000002 



0011% 
002000 

001156 
010040 



mil': 



000034 

010044 
001161 
171110 



171172 
171162 



010040 
010042 
IV 1126 



ERROR HRNDLER ROUTINE 



.SBHL 



THIS ROUTINE Uia SRVE THE ERROR NUTCER Pt€ THE PDR OF THE ERROR CALL 
AND GO TO REPORT ON mOR 
THE SHI JCHgOPT JONS PWv^ Sfel'^^^"^ 



SU13 s 
SUlO s 



INHIBIT ERROR TYPEOUTS 
BELL ON ERROR 



CALL 



ERROR N 



;ERROR s EHT & N = ERROR ITEN NUHBER 



SERROR: NOV 
BIT 

NOV 
SUB 
NOVB 
BIT 



STSTNH.aOISPLAY; DISPLAY TEST NUHBER AND ERROR FLAG 



•eiTio 

IS 



IS: 




2S: 



TYPE 
TST 
BPL 
HOLD 
RTI 



•6IT13,iS« 
3.REP0RT 

.s6rlf 

iSUR 
3S 



SITEHB 



3S: 



BELL ON ERROR* 

NO - gap 

RING KLL 

GET AOORESS OF ERROR INSTRUCTION 

STRIP AM) SAVE THE ERROR ITEfl CODE 
SKIP TYPEOUTS IF SET 



ROUTINE 



HALT ON ERROR IF SET 

SKIP IS corriNUE 

OYNANIC HALT 
RETURN 



)R INSTRUCTION EXECUTED 



BOB 



02UCB.PU 28-fEB-77 15:06 



01 



IIQO 
010108 
OlOlOb 
010112 

oioim 

010115 
0101% 

Qioiap 

0101% 
OIOIMO 
010142 
OlOlHM 



001173 



0100% 

104H01 01504M 




lOHHOl 019K4 

013^ oiSho 

104H01 QlSOba 

0117% 010042 
I044ja 
003 

m m 

013554 010140 




3i-«flR-77 14:45 P«JE bS 
DVtOR HfVCLER ROUTirC 

;//////////////////////////////////////. . - 

iERROR REPORT ROUTIfC 

IDWOR f€SS«GE MILL USE THE. F X' '^4II1C FOW: 
•TEST tXX, PC=XXXXXX, ERROR 3( fCSSME 



\ ) \ > ' 



://///////////////////////// V/// ////////////,//, 



U2&0Q 
000207 



REPORT: 


TSTB 




BHI 




NOV 




TYPE 




NOV 




TYPOS 
• SYTE 




•SytI 

TYPE 




NOV 




TYPa 




TYPE 




NOV 








.BYTE 




TYPE 




NOV 




RSL 




NOV 




TYPE 


IS: 


.UORO 


NOV 


2S: 


RTS 



fTPFLC 
2S 

RQ.-(SP) 

JtSTNO 

iTSTff1,-(SP) 

2 
1 



;.-(SP) 
4frafi,-(SP) 

3 

1 

RO 

EHRT-2CR0),1I 

0 

(SP)+,R0 
PC 



TERHINRL EXIT' 
NO, EXIT 

•ptgH RQOH STACK 

tVnf FIRST PRRT Of ERROR NESG 

ifUSH V$Tm Oh STACK 

tVPE TEST NUMBER 

™e.0l5lTS NfW. 

TYPE LERDINC ZEROS 

TYPE P RRT QF raROR fCSG 

^^^'^ 

TYPE NQREOF ERROR fCSG 
iWBH JHTENB OH STACK 
tYPE ERROR NUMBER 
3 DlCmNRX. 
TYPE LEADING ZEROS 

TYP SP9^ 

GET SwOfT NUMBER 
SET TABLE POINTER 
SET mSk MESSAGE AOR 
TYPE ERROR MESG 

;:POP STACK INTO RO 
•ftETURN 



iflIfCeC-U-02UC-B nftCYU 27Ci00&) 
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COb 
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5PVE flfO RESTORE R0-R5 ROUTirCS 

.SBTTL SAVE 9K> RESTORE RO-fiS ROUTirCS 



0101% 
0131% 
010150 
010152 
01015M 

OlClbO 

gioi&a 

OlOlS 
010172 
01017S 
010202 



010204 
010204 
010210 



01C2I% 
0101% 
0102% 
01(13% 
01^ 
0105% 
016fc% ^ 
0166% 000022 
0166% 000022 
01b6% 000022 
000002 



010214 01 

ji 



012666 000022 
012666 000022 



01 
01 
01 



12602 
0l0f>d4 012601 
010236 012600 
010240 -kj3002 




4SRVE RO-fiS 
K9LL: 



.SRVREC 
RETURN 



ftUPON 

ITOP — (+16) 
f 42 — (+18) 
t +4 — R5 
f +6 — R4 
t +8 — R3 
»+10 — R2 
»412 — Rl 
•♦14 RO 



tSAVREG: 

MOV 

nov 
nov 
nov 
nov 
nov 
nov 
nov 
nov 
nov 

RTI 

^RESTORE R0-R5 

Ji RESREG 
iRESREG: 

nov 
nov 
nov 
nov 
nov 
nov 
nov 
nov 
nov 
nov 

RTI 



FROn SSAVREG T»C STACK MIL LOOK LIKE: 



RO,-(SP) 
R1,-(SP) 
R2 -(SP) 
R3 -(SP) 
R4 -(SP) 
R5 -(SP) 




!(SP) -(SP) 
22(SP),-(SP) 



(SP)+,22(SP) 
(SP)+ g(SP) 
(SP)* S(SP) 

(SP)* R4 
(SP)* R3 
(SP)* R2 
<g)* Rl 
(§»)♦ RO 



PUSH RO 
PUSH Rl 
PUSH 



_ R4 
PUSH R5 



SAVE PS 
SAVE PC 



ON STACK 
ON STACK 
ON STACK 
ON STACK 
ON STACK 
ON STACK 
OF HAIN FLOU 
OF HAIN FLOU 
OF CALL 
OF CALL 




TORE PC OF CALL 
TORE PS OF CALL 
TOR^ PC OF HAIN FLOU 
"RE PS OF NAIN FLOU 
TACK INTO R5 
TACK INTO R4 
TACK INTO R3 
TACK INTO R2 

fTACK INTO Rl 
TACK INTO RO 



f1PlMDEC-ll-02U€-B fIflCYli 
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8 



0102M2 
0102% 
0102SO 

8i! 

010260 
IC 

ir 

OK 
010272 

010302 

oioaoM 

010310 
010312 
01031b 
010322 
01032H 

010330 
010334 
010336 
010342 

010344 
010350 
010352 
0103&0 



105737 
100407 
0100% 




005726 
104401 

0047lf 
123726 
001355 
0137% 

105366 
002770 
004737 
000772 

105777 
100375 
116677 
000207 



DOb 
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SAVE pre RESTORE R0-R5 ROUTIfCS 

.SBTTL TYPE ROUTirC 



001173 
000002 

000002 
000200 

001161 

010344 
001172 

001170 

000001 

010344 

170534 
000002 



ROUTirC TO TYPE ASCIZ HESSMCS. HESSAGC ftJST TERHINATE UITH fl 0 BYTE. 

N0TE2: SFILLS CONTAINS THE NUTflER OF FILLER CHARACTERS REQUIRED. 
N0TE3: SFIUC CONTAINS THE CHARACTER TO FILL AFTFR. 



CALL: 



STYPE: 

IS: 

2S: 

3S: 
4S: 



5S: 
6S: 



7$: 



TYPE ,ICSAOR 



TSTB 

BHI 

NOV 

NOV 

NOVB 

BNE 

TST 



170526 



AOO 
RTI 

S? 

TST 

TYPE, 

BR 

JSR 

CNPB 

BNE 

NOV 

DECB 
BLT 
JSR 
BR 



STYPEC: TSTB 
BPL 
flOVB 
RTS 



STPFLC 
3S 

RO.-CSP) 
4$ 

(§»)i.RO 

•CRLF,(SP) 
5$ 

(SP)+ 
JCRLF 
2S 

PC.STYPEC 

SFILLC,(SP)+ 

2S 

$NULL,-(SP) 

KSP) 
6S 

PC, STYPEC 
7|' 

asTPs 

STYPEC 

2(SP),aSTPB 

PC 



NESAOR IS ADDRESS OF FIRST CHAR IN ASCIZ STRING 

IS T)€RE A CONSOLE TERNINAL^ 
BRANCH IF NO oStSOUE. TFRHINAL 
SAVE RO 

BE TYPED ONTO STACK 
BR IF IT ISN'T THE TERHINATOR 
jJF^TgglNATOR, POP IT OFF STACK 

ADJUST RE?URN PC 

BRANCH IF NOT <CRLF> 

POP <CR><LF> EQUIV 
TYPE CR-LF 
GET reCT CHAR 
60 T^ CHAR 

IS IT TINE FOR FILLER CHARS^ 

IF NO GO GET NEXT CHAR 

GET I FILLER CHARS NEEDED 

Arc T« NULL CHAR 

DOES A NUa NEED TO BE TYPED' 

BR IF NO - GO POP THE NULL OFF OF STACK 

GO TYPE NUa 

LOOP 

UAIT UNTIL CONSOLE PRINTER IS READY 

LOAD CHAR TO BE TYPED INTO DATA REG. 
RETURN 
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010362 

01^ 
01^ 
01 0370 
010372 
01037H 
OlOHOO 
OlOHQH 
OlOHOb 
010410 

m 

0104X 

8}i 

Oil 
OlOHHH 
01QM% 
010450 
010452 
Olf ~ 
OK 

"M 
It ^ 
010464 
010472 
010476 
OK 
OK 
OK 
010512 
010514 

OK"" 
OK 
OK 
0K_ 
010536 
010540 
010542 



8 




112766 






EQb 

Ol-mR-77 14:45 PMC 68 
CONVERT BINRRY TO OECINRL PTO TYPE ROUTIfC 

SBTTL CONVERT BINRRY TO OECINRL RTC TYPE ROUTIfC 



im OR rCQRTIVE R OR A NINIB SIGN UILL BE TYPED 
T)C NUNBER. LERDING ZEROS UILL RLURYS BE 



«CRa: 



020200 
000020 



010576 
000040 

010566 



000001 



000001 177777 

000060 

000040 



000010 



177777 177776 





NOV 




TYPOS 


STYPOS: 






NOV 




NOV 




NOV 




NOV 




NOV 




NOV 




NOV 




BPL 




NEC 




novo 


IS: 


aR 




NOV 




novB 


2S: 


CLR 




HOV 


3S: 


^ 

BLT 




INC 




BR 


4$: 


ROO 


TST 




6NE 




TSTB 




BHI 


5S: 


ASLB 




BCC 




novo 


&S: 


BIS 


7S: 


BIS 




novB 




TST 




CNP 




BLT 




BCT 




nov 




BR 


8S: 


TSTB 




BPL 




NOVB 




CLRB 




nov 




nov 




nov 



NUH,-(SP) 



RO,-(SP) 
Rl -(SP) 
R2,-CSP) 
R3 -(SP) 

•26200,-(SP) 
20(SP) R5 
IS 
R5 

•'-,1(SP) 
RO 

•S06LK.R3 

•' ,(ro)^ 

R2 

SDTBL(R0),R1 

R1,R5 

4S 

R2 

3S 

R1,R5 

R2 

5S 

(SP) 

7f 

(SP) 

6S 

1(SP).-1(R3) 

••0,R§ 

•• R2 

R2.lR3)+ 

(R0)> 

RO,tlO 

2S 

BS 

R5,R2 
6S 

(SP)+ 
9S 

-1(SP),-2(R3) 
(R3) 

(SP)+,R5 
{SP)+,R3 
(SP)+,R2 



;;PUT THE BINRRY NUNBER ON THE STACK 
I -GO TO THE ROUTIIC 



RO ON STACK 
nSH Rl ON STACK 
PUSH S ON STACK 
PUSH Fa ON STACK 
PUSH R5 ON STACK 
SET UK aiiTCH AND SIGH 
(XT THE INRiT NUNBER 



BR IF INPUT IS P 
MAKE T»C BINRRY 




POS. 

NUflER POS. 
" NEC. 
.tCEX 

. INTER 

GET THE CONSTANT 
FQRH THIS BCD DIGIT 
BRJF DONE 

INCREASE TIC BCD DIGIT BY 1 

ADO BACK THE CONSTANT 
CHECK IF BCD OIGIT=0 
FRa THROUGH IF 0 
STILL DOING LEROING O'S^ 
BR IF YES 
NSO? 

BR IF NO 

YES—SET THE SIGH 

NRKE THE BCD DIGIT ASCII 

NAKE IT A SPACE IF NOT ALREADY ft DIGIT 

PUT THIS WARflCTER IN THE OUTPUT BUFFER 

JUST INCREfCNTING 

CHECK THE TABLE INDEX 

GO DO THE NE}a DIGIT 

GO TO EXIT 

GET ThTlSO 

GO CHANGE TO ASCII 

HAS THE LSD THE FIRST NON-ZERO^ 

BR iF NO 

YES—SET THE SIGN FOR TYPING 
SET THE TERNINATOR 
POP STACK INTO R5 
POP STACK INTO R3 
POP STACK INTO R2 



FOb 

010576 TYPE .fOaJc NM TYI>E TIC ItlKR 

000002 OOOOOM HJV 4<|?'.?4K' SiflOJUST TW STACK 

(SP)*,15P) .jRETUHH TO USER 




023420 SOTBL: 10000. 
0017SO 1000. 
OOOIHH 100. 

000012 10- 

OOOOOM SDBLK: .BLKU 



GOb 



riflircec-i'-D2L«E-B 
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OlQbOb 
OlObl 

or - 



01 7b% 
llbb37 

m, 

OOOHOb 

lit r 

11272 
103% 




0107% 



QQIQK 
001403 



000000 
QOOOOl 
011033 
000002 

000001 
OO OQQb 
000005 



011033 



nie 

011031 
000012 



011032 
177770 



011031 



011031 
011033 
QU03C 



BINARY TO OCTAL (ASCII) AND TYPE 
SBTTL BINARY TO OCTAL (ASCII) AND TYPE 



(THIS ROUTirC IS USED TO CHANGE A Ib-BIT BINARY NUNBER TO A b-^IGIT 

SUPPRESS ZEROS AND NUNBER OF DIGITS TO TYPE 

ftCAa: 

NOV NUH,-(SP) ;;N1I«R TO BE TYPED 

TYPOS aiL FOR TYPEOUT 

.BYTE N N=l TO b FOR NUNBER OF DIGITS TO TYPE 

.BYTE H ; N:l OR 0 

;;1=TYPE LEADING ZEROS 
OsSUPPRESS LEADING ZEROS 



IITYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

tlTYPOS OR ITYPOC 
ftCALL: 

* NOV NUH.-(SP) ;; NUMBER TO BE TYPED 
« TYPON l-CAa FOR TYPEOUT 

ftSTYPOC — ENTER HERE FOR TYPEOUT OF A lb BIT NUMBER 
ftCALL' 

* 'NOV NUM,-(SP) ;;(*J!«8J0^TYPE0 



TYPOC 



STYPOS: 



ITYPOC: 
fTYPON: 



IS: 
2S: 



3S: 



a(SP),-(SP) 
IT^ 

R3 -(g) 

SOAOOE^I.RH 
RH 

R<sonooE 

S(Fia,RH 

12(SP) R5 

R3 

R5 

3S 

RS 

R5 

RS 

RS,R3 
R3 

•177770, R3 

4S 

R4 

5S 



•jCAa FOR TYPEOUT 

;;PICKUP T« MODE 
LQAQZERO Fia SWITCH 
NUMKROF DIGITS TO TYPE 

••ADJUST RETURN ADDRESS 

r TH| ZERO FILL SWITCH 
[T FOR SrX(b) DIGITS 
:T THE ITERATION COUNT 
R3 

' 'SAVf R5 

••GET THE NUNBER OF DIGITS TO TYPE 

GET THE TOO FILL SUITCH 
PiagjP THEINPUT NUMBER 
CLEAR THE OUTPUT WORD 
ROTATE MSB INTO "C" 
GO DO MSB 
FORM THIS DIGIT 




;;GET LSB OF THIS DIGIT 
TYPE THIS DIGIT' 
BR IF NO 



f > 



;;GET RIO OF JUNK 

lisu^is ?HIS 0' 
;;BR IF YES 



HQb 
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SZLtCB.oil 28-FEB-77 iS:Ofl BlNflRY TO XTflL (PSCII) AND TYPE 



01(3750 
0107S2 
010756 
0107S2 

010772 
01077b 

oiigdo 

0110^ 
011004 
011006 
011010 
011012 
011014 

011026 
011027 
011030 
011(531 
011032 



005204 




000744 
012605 

016666 

000002 
000 
000 

000000 



011026 
011026 
011030 



00000c 000004 



4S: 
5S: 



71: 



6S: 



8S: 

JOCNT: 



INC 
BIS 
BIS 
HOVB 
T'fPE 
DECB 
BGT 
BLT 
INC 
BR 
MOV 
NOV 
NOV 
NOV 
NOV 
RTI 
.BYTE 
.BYTE 
.BYTE 



iOFILL: .BYTE 
SOnOOE: .WORD 



R4 

••0,R3 
f !R3 
R3^6$ 

iOCNT 

2S 

6S 

R4 

2S 

(SP)+,R5 
(SP)+,R4 
(SP)+ R3 
2(SP),4(SP) 
(SP)+,(SP) 

0 
0 
0 
0 
0 



DON'T SUPPRESS PNYMORE O'S 

THIS DIGIT ASCII 
met ASCII IF NOT ALREADY 
SAVE FOR TYPING 
CO TYPE THIS DIGIT 
SXJHT BY 1 
BR IF nORE TO 00 
BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
S5T0RC R5 
P£S10K R4 
RESTOfS R3 

SET THE STACK FOR RETURNING 
RETURN 

STORAGE FOR ASCII DIGIT 

Sf«/M "^"^ 

ZERO FILL SWITCH 
NU«ER OF DIGITS TO TYPE 



011034 004737 011316 SLOftO: JSR PC.RSTADR jRESTORE ADDRESSING TO FIRST PRINTER 

01 040 000137 000000 LDPTR: JMP 0 SWITCH JOJ^HERPARAUEL W 

; SERIAL SINGLE-CHARACTER LOADER. 
THIS SWITCH IS SET UP BY THE PROGRAM 
AT STARTUP PER THE CONTENTS OF SERSU WORD. 



lOb 
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.SBTTL ROUTirCS TO LOAD CHARACTERS TO LA180 




OOOOHO OH 140 
777 170034 



000423 

8^ am 

001005 

011140 



105777 lb777b 

1Q077 167772 

" ~ l&77b4 
100001 



; /////////////////////////////////////////////////////// > //////, /// ^/// 

CALL: NOV CHAR.RO :PUT CHAR IM RO 

; LOAD 

•IF PRINTER DOES NOT GO READY UITHIN 9 TO 32 SECONDS 
(DEPENDING ON CPU AND NENORY TYPE) THE DIAGNOSTIC WILL 
INDICATE AN ERROR - ERROR 124 - NOT READY. 



;////////////////////////////////////////////////. ///////////////////// 



PLOAO: 



3S: 



4S: 

5S: 
6S: 



CHECK 
NOV 



BR 
ONE 



ERROR 
BR 

TSTB 

BPL 

NOVB 

TST 

BPL 

ERROR 

BR 

.UORD 
.WORD 



•40. bS 



4S 



3S 

n 

25 
41 

aLPs 

2S 

R0JLP6 

aCPs 

4S 

2b 

NXTADR 



F^p^^ROR CONDX 



INTER ERROR BEFORE LOAD 
COUNTINUE 

ERROR, PRINTER NOT READY 
EXIT 

CHECK FOR PRINTER READY 
WAIT FOR READY 
LOAD CHAR 

TEST FOR ERROR CONDX AGAIN 

BRANCH IF OK 

PRINTBt PROR AFTER LOAD 

DOES ANOTHER PRINTER REQUIRE LOADING ALSO? 



lY LOOP COUNTER 



011142 
01114b 
OIUSO 
01115b 
0111b4 





011204 000002 



001132 NXTADR: DEC 

BLE 

000010 001110 ADD 

OOQQIO 001112 ADD 

oSiOlO 001114 ADD 

OOUlb AOg 



IDS: 



RTI 



LPCTR 

•iJ.LPKS 
•10,LPKB 
•10, LPS 
•10.LPB 
aLD^TR+2 



;DECRENENT LINE PRINTER COUNTER 
BR IF COUNT IS ZERO OR LESS (TO EXIT) 
— lSS next contiguous Lire PRINTER 



;G0 LOAD SANE CHARACTER TO NEXT PRINTER 

USING SANE LOADER. 
; RETURN. SINGLE CHARACTER LOAD IS 

CONPLEtE (TOALL PRINTERS). 



f1flirCEC-ll-0ZLflE-B n«CYll 27(1006) 
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01120b 
011212 
01121H 
011222 
011230 
011236 
011240 
011242 
0112% 
011250 
01125S 
0112SH 
011272 
01127M 
01127b 
0U3QQ 
0U30M 
01130b 
011312 



105777 
100031 
017737 
042737 
023727 
001017 
104420 
105777 
100374 
017737 
042737 
023727 
001382 
000404 
104420 
105777 
100340 

m 



Ib7h7b 

Ib7b72 
177600 
011314 



167642 

167636 
177600 
011314 



167610 
167604 



011314 
011314 
000023 



011314 
011314 
000021 



JOfe 
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ROUTINES TO LOAD CHPRflCTERS TO LfllBO 

;////////////////////////////////////////////////////////////////////// 

: ROUTINE TO LOM) SINGLE CHRRRCTERS TO THE LR18G PRINTER 
•USING THE SERIAL iNTpFRCE. 



;CflLL: NOV 



CHRR.RO 

LOAO 



;PUT CHRR IN RO 



,////////////////////////////////////////////////////////////////////// 



SLOflD: TSTB 
BPL 
MOV 
BIC 
CNR 
BNE 

3S: CHECK 
TSTB 
BPL 
NOV 
BIC 
CNP 
BNE 
BR 

2S: CHECK 
TSTB 
BPL 

4S: nOVB 
BR 



aLPKS 
2S 

BLPKBaOS 
•177660,101 
10S,t23 
2S 

9LPKS 
3S 

aLPKB.lOS 

•177b60,10$ 

10S,t21 

3S 

4S 

aLPS 
SLORO 



011314 000000 



lOS: 



.hlORO 0 



CHECK FOR PRINT KBD IffUT 
BRRNCH IF NONE 

R^ PRINT^ KEYBORRD CHARACTER 
STRIP EXC^ BITS 
IS CHARACTER YOFT^ 

5?§.^&la¥oR OPERATOR INTERVENTION 
CKECK FOR PRINTER K60 INPUT 
none; WAIT FOR EXPECTED XON 

READ pRifrrra keyboard character 

STRIP EXOS Birr^ 

IS CHARACT^XONT 

NO. WAIT SSC MORE. 

YE§. GO DIKCTLY TO LOAD A CHARACTER 

CHE^ FOR OPERATOR INTERVENTION 

IS WINTER REAOYt 

NO. START CHECKS OVER 

S'^oimCTlER TO NEXT PRINTER 
USING SAfC LOADER. 



LA180 KEYBOARD CHARACTER STORAGE. 



011316 013737 001130 001110 RSTAOR: NOV 

im m m m\i 

011340 013737 001112 001114 NOV 

0113% 062737 000002 001114 ADO 

011354 013737 001114 001116 NOV 

011362 0b2737 000002 001116 ADO 

011370 013737 001122 001132 NOV 

011376 000207 RTS 



ACTFST.LPKS 

LPftBXPS 
•2.L^ 

lpS.lpb 

•2,CpB 

NUHLP.LPCTR 

PC 



;SET PRINTER KBD STATUS REG ADDRESS 

;SET PRINTER KBD BUFFER ADDRESS 

;SET PRINTER STATUS REG ADDRESS 

;SET PRINTER BUFFER ADDRESS 
PUT • OF LP'S INTO A COUNTER. 
RETURN 



KOb 



nflIfCEC-ll-OZLfl£-B HPCYll 87(100b) Ol-HflR-T? 14: H5 POGE 7M 
OZLAEB.Pll 28-^CB-77 15:08 ROUTIfCS TO LOW CHMWCTERS TO LAIBO 



011400 10M415 

011408 005301 

011404 003375 

01140b 000002 



;////////////////////////////////////////////////////////////////////// 

; ROUTINE TO LOM) fULTIPLE CHRMCTERS (NOT ASCIZ/RSCII STRINGS) 

UILL LORD CHRR ONCE IF COUNT s 0 

PUT CHRRACTER oSSf IN Rl (POSITIVE) 

PUT ASCII CHRRRCTER IN RQ 
;CRLL: HLORO 

;////////////////////////////////////////////////////////////////////// 



SHLORO: 



BGT 

RTI 



Rl 

SHLORO 



;L0RO CHRR 
DEC COUNT 
FINISH LORD 
RETURN 



410 
410 
412 
414 
416 

SIS 
42b 
4" 
4 
434 
4MQ 
4M2 




4% 
450 



4b0 
4b2 



4bb 
470 
47b 
500 



0100% 
01(31% 
0102% 
005002 
OlbbOl 
112100 
1410 
7702 
1004 
020027 OOOObO 




000012 



104415 
OOOTbb 
005702 

QOOObO 

104415 



315 8{i8! 



ikoi 

012b00 
OlbSbb 000002 000004 
012blb 
000002 



;////////////////////////////////////////////////////////////////////// 

;ROUTIf€ TO LORD CONVERTED NUNBERS AND SUPPRESS LERDING ZEROS 
^^PCK^ ^™ 



;////////////////////////////////////////////////////////////////////// 



SCNLD: 



IS: 



2S: 
3S: 



4S: 



NOV 
NOV 
CLR 
NOV 
NOVB 

m 

BNE 
CNP 
BEQ 

INC 

LORD 

BR 

TST 

BNE 

NOV 

LORD 

NOV 
NOV 
NOV 
NOV 
NOV 
RTI 



RO,-(SP) 
Rl -(SP) 
R2,-(SP) 

S(SP)J1 

(RD^.ra 



R0,I60 

IS 

R2 

IS 

R2 

•So.RO 

(SP)^,R2 
(§»)♦ Rl 
(SP)+,RO 
2(SP),4(SP) 
(SP)+,(SP) 



_ ^ TflCK 
Rl ON STACK 
PUSH R2 ON STACK 




NO. CICCK THIS CHAR 

^F^^?' NON-ZERO 

CONTINUE 

RLL gjRRS ZEROf 

Y^&, lUo ZERO 



POP STRCK INTO R2 
POP STACK INTO Rl 

,.pop stack into ro 
•Adjust stack 

; RETURN 



LQfa 
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;////////////////////////////////////////////////////////////////////// 



PRINtER 



rcsROR 



;////////////////////////////////////////////////////////////////////// 



01 


1502 






IWINT: 


01. 


1502 


0100% 






OIJ 


504 


0101% 






OIJ 


L50b 


017801 


000004 




01 


512 


112100 




IS: 


OIJ 


514 


001407 






i 






000200 










000012 




01] 


530 


104415 




3S: 


01 


[532 


000767 






OIJ 


534 






2S: 


01153S 


012601 




011536 


01260C 






011540 


062716 


000002 




OllSHH 


000002 





HOV 
ffOV 
NOV 

novB 

BEQ 

MOV 

LOAD 

BR 

nov 

fWV 

9fi 



RO,-(SP) 
R1,-(SP) 

a4lsP)^i 
(RiH.ro 

2S 

g.lCRLF 

•LF,RO 

IS 

(SP)+,R1 
(SP)+.RO 
•2,(5^) 



;P[m RO ON STACK 

^ ^^SS OF A5CIZ STRING 

BRRNCH IF TERHINRTOR (NULL) 

YES. DO LF ONLY 
LOAD CHRR 
GET NEXT CHRR 

;POP STACK INTO Rl 
POP STACK INTO RO 
T RETURN PC 



MQ& 



fifll 

OZLi 



c-ii-ozLfle-B nflCYu 

.PU 28-FEB-77 15:08 



27(1006) Ql-nfW-77 IH'.HS PftGETS 

ROUTirCS TO LOAD CHRRACTERS TO LR180 

;////////////////////////////////////////////////////////////////////// 

.SBTTL PRINT TEST HERDER 

;THE NUnB» OF COLUmS UILL ALSO BE PRINTED FOR TEST 25 ONLY 
•CfiU: PfmCR 

;////////////////////////////////////////////////////////////////////// 



0 
01 
01 
01 



1550 
155M 

1562 
602 

l!l 

616 



0050% 
0127% 
000002 

012700 
IWIS 

M 

104414 

m 

104417 

i^7el7 
001007 




i40 
644 
6% 
652 
656 



104417 
104414 
104414 
000002 



011556 

000177 

0011% 

0011% 
015011 
0011% 
013024 

015031 
001162 



011660 
011660 



000025 



011660 000000 



SPRHDR: 


CLR 






rwv 




DTT 

Nil 


bfs; 






nuv 




LORD 




CNP 
BCfl 




NOV 




PRINT 




NOV 




JSR 




OLORO 




gjJMT 




BNE 
NOV 
JSR 




CNLORD 




PRINT 


3S: 


PRINT 


4S: 


RTI 


SVTST: 


.UORO 



-(SP) 

•64S,>(SP) 

I177,R0 
STSTNN, SVTST 
rSTNN, SVTST 

iTS tNN>' (SP) 
PCfSSBSO 

tf^.a25 

,COLNN 
liLF 



;PUT rCU PS ON STACK 
PUT rCU PC ON STACK 
•POP NEU PC AND PS 

SET RUBOUT CHAR 
CLEAR LA160 CHAR BUFFER 



LOAO 
PUSH 



CK IF PRINTED THIS • LAST 
\, PRINT BLANK LINE & EXIT 
STORE NEU • 




I NESG 
OH STACK 



LOAO NUTBER 

NO. SKIP COLUNN NESG 
gjt^l^ «, ST«CK 

LOAO NUHBER 
LOAO CLQUHN NESG 

SAVE TEST NUHBER 



NOb 
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.SBTTL TTY imjT ROUTINE 

: : ««««4HHHHHHHH(i 

!tNRBL LSB 
.OSRBL LSB 



01 
01 

8{ 

01 
01 
01 
01 
01 

8i 

01 



8} 

01 



012000 




012002 
Q12004 
Q12006 

8ii8il 

012020 

gii 

01( 

Qii 
ou 

0120% 



0103% 
0050% 
012703 
022703 
10145b 
104M06 



000004 
167202 

lb7176 

iZZ&QP 
000004 

1&7150 

187144 
177600 
000021 

000004 
000004 
000040 




88!^ 



000140 
000175 
000004 



iTHIS ROUTINE UILL INP R SINGLE CNRRRCTER FROM THE TTY 
•CRLL' 

;INPUT R SINGLE CHRRflCTER FROM TJC TTY 

CHRRRCTB) IS ON THE STACK 
WITH PRRITY BIT STRIPPED OFF 



ROCHR 
RETURN K 





SRDCW: 


NOV 


000002 




NOV 




IS: 




000004 




NOVB 


000004 




BIC 


000023 




Cff 






BNE 




2S: 


TSTB 






BPL 






novB 






BIC 



012236 
012242 



000177 
112737 000134 012234 



3S: 



4S: 



CNP 
BLT 
CNP 
BGT 
BIC 
RTI 



(SP),-(SP) 
4(SP),2(SP) 

aiTKB •4(SP) 
•tC<l>7>.4(SP) 
4(SP),t2^ 
3S 

aSTKS 

3tkb.-(SP) 

•tC17^,(SP) 
||P)+,421 

4(SP),I140 
41 

4(SP),tl75 
4S 

•40,4CSP) 




PUSH DOUN THE PC 
SRVE TIC PS 

A CHRRRCTER 
READ T»C TTY 
T RID OF JUNK IF ANY 

HAIT FOR A CHARACTER 

cSSSfttfiP ^ 

HRKE IT 7-BIT ASCII 

YES. RBUiC^ 
ISJt upper CASE? 
BRANCH IF YES 

Sua.™* 



4thIS routine Uia input a string FRON tic TTY 
tCAU: 



SROLIN: NOV 
CLR 



IS: 
2S: 



lOS: 



NOV 

SSs 

ROCHR 

CfPB 
BNE 

TST 



nOVB 



HERE 



R3^(SP) 

•SnYIN,R3 
i|TTYIN+4,R3 

(SP)+,(R3) 
•177, IR3) 
5S 



; INPUT A STRING FROH THE TTY 
ADDRESS OF FIRST CHARACTER UILL BE ON THE STACK 
I TERMINATOR Uia BE A BYTE OF ALL O'S 

^^'^ RUBOUT KEY 
GET ADDRESS 

GO READ ONE CHARACTER FRON THE TTY 
GET CHARACTp 
IS ITARUBOUT 
BR IF NO 

STHIS TIC FIRST RUBOUT? 
IF NO 
TYPE A BACK SLASH 



Ol-«W-77 IHrtft PftGE 78 

m if#>uT RouTirc 




012110 

oiaiiM 
Qiaiife 

oiaiao 

0121g 
012138 

oiaiMo 
oieina 

0121% 

SiiiP 

012160 
012162 
012166 
012172 
012176 

012210 
012212 
01§1H 
01^16 
01222H 

m 

012235 

siii 

012247 

01 

8! 

012272 



G?a327 
1(S3H3M 
111337 
iOHHOl 
0007% 

mt 

nzrp 

mi 

122713 
001003 
lOHHOl 
000726 

A^il 
1QS0I3 
lO^MOl 
IQHHOI 

?8Sm 

000712 
111337 

122723 
001305 
IQSG^ 
401 
726 



012236 

01223M 
01223H 



00C13H 
012234 

0O0Q2S 

012242 

000022 



001161 
012236 

001160 

012234 
012234 
OOOOIS 

177777 
001162 



000004 
012236 



000 

005015 
136 006507 



012234 



6S: 



51: 



7f; 



8S: 



4S: 
3S: 




000002 
000004 



000 
000012 
020122 



STTYIH: 

tCKTLU: .ISCIZ 

SCNTLC: .ASCIZ 

mSMR: .ftSCIZ 



^1,(SP) 

t25«(R3) 
^CffTLU 

Is 

g2,(R3) 

(R3) 

.fCRLF 

IfTTYIN 

^5 

ss 

h5,(R3)+ 
21 

-i(R3) 

<g)+,R3 

H(SP).2(SP) 
•STTyIn,M(SP) 

0 
0 
4 

/tU/<lS><12> 
/tC/<lS><12> 
<1S><12>/SW 



047C 
036440 000040 



053505 tffCU: .ASCIZ / fCU s / 



DC fUBoyr KEY 
UP Bvoic 

_ 5 tPttpeout nc deleted chrr. 

00 TYPE 

OO READ niOTICR CHflR 

TYPE ft 8PCK SLASH 

CLEAR T>C fUBOUT KEY 
IS CHMtACTGR A CTRL 

fw?A'?OHTROL -ir 
OO START OVER 
ISCHflRACTOr A "tR"' 
OVtOf IF NO 
aim TNECHRRACTER 
TYPE A I -LT* 
TYPE T»C INPUT STRING 
^I^,ANOT)CR CHACTER 

CLEAR T>C BlSiLfl'* LOOP 
ECHO THE CHMACTER 

CHECK FOR RETURN 

LOOP IF NOT RETURN 

CL»R RETURN (THE IS) 

TYPE A Lire FEED 

CLEAN RlflOUT KEY FROH THE STACK 

SS^tS stack and PUT ADDRESS OF THE 
FlfST ASCII CHARACTER ON IT 

FOR ASCII CHAR. TO TYPE 
TERMINATOR 

mi H^S FO. m .*UT 
CONTROL -C- 
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01227b 
012300 
01230b 



011b% 

oibbbb 

01CO% 

im 

104407 
It 




0l2Hlb 
0124, 
0124, 
Ol24i 
0124; 
0124 

0124; 

01243b 00572b 
012MMO lOSOlO 





000004 000002 



012444 



000055 



000071 
170000 



OOOObO 



000012 



SfffiOEC: 


nov 




NOV 




nov 




NOV 




NOV 


IS: 


ROLIN 




NOV 




NOV 




CLR 




OR 




CflPB 

ac 




NOVB 


2S: 


ngvB 

KQ 




cm 




BGT 




cm 








BIT 

ac 








asL 




ASL 




fCD 




BVS 




SUB 




AOO 




BVS 




BR 


3S: 


TST 




BCQ 




rcG 


4S: 


nov 




nov 




nov 




NOV 




RTI 


5S: 


TST 




CLRB 



PROViqe SPW£ FOR 
T»€ INPUT NUNBER 
PUSH RO ON STACK 
nSH Rl ON STACK 
Pl& R2 oh STRCK 
RERP RN 



RN RSCIZ LINE 
WOSSE OF BRD 



CO? 

ai-f1flR-77 14:45 PRGE 79 
REM) A OECINAL NUHBER FROR T>€ TTY 

.SBTTL REflO A OECINAL NUWER FROR THE TTY 

*TMIS 80UTIHE MXa_RERO_A_0CCm (A5CII)J*«ER.FR0f1 "^^Jj^^^ 

Hia BE TYPED? 

^ _ INATED BY T»€ 

TYPING A CAIVUAGE RETURN. TIC IMlGE OF THE IlfUT NUTCER IS 

tPOSITIVE 327b7 TO NEGATIVE 32768. 

« ' ROOEC : ;REAO A OECINAL NUNBER 

* RETURN HERE NUHBER IS ON TOP OF THE STACK 



(SP),-(SP) 

4(SPJ^(SP) 

RO,-(§P) 

R1,-(SP) 

R2|-(SP) 

-(§P) 
R2 

•'-,(R0) 
2S 

(R0)4,R2 
(R0)^|R1 

as 

••0,Ri 
5S 

•'9,R1 
5S 

•tC7777,(SP) 
5S 

(SP) 

(SP),-<SP) 

(SP) 

(SP) 

(SP)+,(SP) 
SS 

I'O.Rl 
R1,(SP) 
5S 
2S 

R2 
4$ 

(SP) 

(SP)+,12(SP) 
(SP)^ R2 
(SP)*,R1 
(SP)<^,RO 



(SP)+ 
(RO) 



s^^NC^ ap Bad INPUT 

CLEAR DATA HORO 
SIGN SET POSITIVE 
SEE IF A NIHIB SIGN HAS TYPED 
BR IF NO NiriS SIGN 
SAVE FOR LATER USE 
PICKUP THIS OWRACTER 
GETOUT IF 2&0 
NAKE SURE THIS CHARACTER 
IS A DIGIT BETICEN 0 & S 



DON'T LET NUNBER GET TO BIG 
BR IF NUraER MOULD OVERFLOU 
§2 

SAVE FOR LATER 

«H 

«B. 

ilO. 

OVERFLOW ISN'T AUOiCD 
STRIP AHAY THE ASCII JUNK 
ApOIN THIS DIGIT 
OVERFLOH ISN'T ALLOUED 
LOOP 

CHECK IF NUNBER IS NEC 
BR IF NO 

YES-ICGATE THE NUNBER 
SAVE THE RESULT 
POP STACK INTO R2 
INTO Rl 
INTO RO 



POP STACK 
POP STACK 
RETURN 



CLEAN PARTIAL NUNBER FRON STACK 
SET A TERNINATOR 



DD7 



nRircec-ii-02uc-6 r«CYu miaob) 

OZUCB.PU 28-fEB-77 IS: 08 



Ol-fMR-77 14:45 PAGE 80 
READ A OECinflL rtffKR FROR Ti€ TTY 



2HHM 
2>«2 




001160 



TYPE 

bS: .UORO 0 



TYPE T»C IWVr UP TO BftO CHr¥?. 
POINTER GOES «RE 
-T- -CR- S'LF- 
TRY AGAIN 



faiNOtC-ll'-OZLflE-B MftCYll 27(100b) 
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Cl-«flR-77 iM:4S PftGE 81 
DOUBLE LENGTH BINPRY TO DECIflfiL ASCII CONVERT ROUTINE 

.SBHL DOUBLE LENGTH BINflRY TO OECINflL ASCII CONVERT ROUTINE 

(this routine UILL convert R 3S-SIT BINRRY NUTCER TO RN UNSIGNED 
;>DECinRL (RSCII) NUNBCR. THE SIGN OF THE BINRRY NUHBER MUST BE 
♦POSITIVE. 
,»CfiLL 



: ♦ 
: * 



NOV 
J5R 

RETURN 



•PNTR.-(SP) 
PC,9liOB20 



;; POINTER TO LOU UORO OF BINRRY NUMBER 

;;THE FIRST RQQRESS OF flSCIZ 
■•IS ON THE 



012S5M 

Q12M72 
012M7S 
QiaSTB 
012S04 
OlcSlO 
G12S14 
012516 
012520 
312S22 
01252H 
012526 
012530 
012532 
012534 
012536 
0125HO 
012542 
012546 
012^ 
012552 
012554 
012556 
012560 
012562 
012564 
012566 
012570 
012572 
012574 
012576 
Oh' 
OK 
012604 
012606 
012610 
012612 
012614 
012616 
012620 



104Mil 

8il^ 

010066 
012201 
012202 
012737 
012704 
012705 
005003 
161401 
005602 
161502 
002402 
00Sg03 
000772 
062401 
005502 
062402 
022525 
052703 
110320 
005327 
000000 
001357 
105020 
104412 



1 

035632 
160400 
002765 
U3200 
000230 
OHUM 
00001-7 
103240 
000001 
13420 



)1750 
000000 
000144 



SDB20: SAVREG 
000002 MOV 
012634 NOV 
000002 NOV 

MOV 
MOV 

000012 012552 MOV 
012564 MOV 
012566 MOV 
IS: CLR 
2S: SUB 
SBC 
SUB 
BLT 
INC 
BR 

3S: ROD 
ROC 
ROD 
CMP 

000060 BIS 

nOVB 
DEC 

4S: .UORO 
BNE 
CLRB 
RESREG 
RTS 

STNPUR: 145000 
35632 
160400 
2765 
113200 
230 

041100 
17 

103240 
I 

23420 
0 

1750 
0 

144 



2(SP),R2 

•SDECCl.RO 

R0.2(SP) 

(RS)+,R1 

(R2)+'R2 

iig^^ 

tSTNPUR,R4 

MTNPUR4-2,R5 
R3 

(R4),R1 
R2 

(R5),R2 
3S 
R3 
2S 

(R4)+,R1 
R2 

(R4)+,R2 
(R5)+!(R5)+ 

R3.tR0)+ 

(PC)+ 

0 

IS 

(R0)+ 
PC 



;;SAVE REGISTERS 
PIS^^yCSLWIfi POINTER 
GET MXMKS OF "nECVL' STRING 
:PUT RDDfiSS OF RSCIZ STRING ON STACK 

•jPICKlFTHr BINARY NUMBER 

;;SET UP TO DO 10 CONVERSIONS 

IIrooress of ten POUER 

;; CLEAR PARTIAL 

1 1 SUBTRACT TEN POUER 

;; BR IF TEN POUER TO LARGE 
AOO 1 TO PARTIAL 
LOOP 

I -RESTORE SUBTRACTED VALUE 

;;NOVE TO NEXT TEN POUER 

CHANGE PARTIAL TO ASCII 

SAVE IT 
llDONEf 

;;BR IF NO 

TERNINATOR 

RESTORE REGISTERS 

RETURN 
lll.OEOS 

;;1.0E08 

;;1.0E07 

;;1.0E06 

;;1.0E05 

;;1.0E04 

;;1.0E03 

;;1.0E02 



f10irCCC-Ji-02Lfl£-B 



OZUCB.PU 28-fEB-77 15:08 

0i%22 000000 

01262H 000012 

012626 googo o 

012&X 000001 

012632 000000 

0l26aH OOOOIH 



nftCYll 27(100t») Ol-flflR-77 1W:45 PftGE 82 



07 



DOUBLE LENGTH BINARY TO DECinAL ASCII CONVERT ROUTINE 



0 

12 

0 

1 

0 

SDECVL: .BLKB 



12. 



l.QEOl 
l.QEOO 

RESERVE STORAGE FOR ASCIZ STRING 



.SBTTL SINGLE LENGTH BINARY TO OCCIMAL ASCIZ ROUTINE 

4THIS ROUTINE HIU CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 
»UNSIGNED OECINAL ASCIZ NUMBER. 
•CALL 



MOV 
J5R 

RETURN 



;PUT BINARY NUMBER ON THE STACK 
CALL 

;AOORESS OF THE 1ST ASCIZ CHAR. IS ON THE STACK 



012650 016637 000002 012700 SSB20: MOV 

012656 0127% 012700 MOV 

012662 004737 012454 JSR 

012666 062716 000005 ADO 

am m"^ g¥i 

012700 000000 000000 IS: .UORD 



2(SP),1S 

•ll.-lSP) 

PC.dfSOBSD 

•S.(SP) 

(SP)+,2(SP) 

0,0 



SAVE BINARY NUMBER 
SET POINTER 

CALL DOUBLE LENGTH CONVERT 
ONLY AaOH FIVE CHARACTERS 



GQ7 



nfiirCEC-ii-02UC-B 



DZUCB.PU 28-fEB-77 15:08 
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DOUBLE LENGTH BINfWY TO OCTAL ASCII CONVERT ROUTirC 
.SBTTL DOUBLE LENGTH BINM?Y TO OCTAL ASCII CONVERT ROUTINE 

4thIS routine UILL CONVERT A 32-4IT UNSIGNED BINARY NUMBER TO AN 



INE H 

ftUNSIGNED OCTAL 
tCALL 
« NOV 
« JSR 
* RETURN 



ASCIZ NUMBER. 

IPNTR^(SP) 
PC,SHDB20 



; POINTER TO LOU UORO OF BINARY NUMBER 
CALL THE ROUTINE 

THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK 



2704 
2706 

Fit 

2722 




0 
0 

n 

012732 
012734 
01273b 
012740 
012742 
012744 
0127% 
012750 
01 
01 
012760 
012762 
012764 
012766 
012770 
012772 
012774 
012776 
013000 
013004 
013006 



104411 

016601 000002 
012703 177770 



110245 
010002 
005304 
003007 
001405 

010566 000002 

000207 
006203 
006001 
006000 
006001 
006000 
006001 
006000 
040302 

062702 Q0006G 

000753 

000016 



S0B20: SAVREC 
MOV 

NOV 
MOV 
MOV 
CLR 

IS: novo 

NOV 
DEC 
BGT 
BEQ 
INC 
MOV 

RESREG 
RTS 

2S: ASR 
3S: ROR 
ROR 
ROR 
ROR 
ROR 
ROR 
BIC 
ADO 
BR 

SOCTVL: .BLKB 



2(SP).R1 

•tC7,R3 
(Rl)i,RO 
(Rl)> Rl 
R2 

R2,-(R5) 

RO R2 

R4 

3S 

2S 

R5 

R5,2(SP) 

PC 
R3 
Rl 
RO 
Rl 
RO 
Rl 
RO 

R3.R2 
i'6,R2 
If 
14. 



SAVE Aa REGISTERS 

PICKUP THE POINTER TO LOU UORO 

MASK 

LOUER UORO 
HIGH UORO 
TERMINATOR 

PUT CHARACTER IN DATA TABLE 

GET THIS DIGIT 

COUNT THIS CHARACTER 

BR IF NOT T)€ LAST DIGIT 

BR IF IT IS THE LAST DIGIT 

AU DIGITS DONE-AOJUST POINTER FOR FIRST 

ASCIZ CHAR. & PUT IT ON THE STACK 

POSITION THE MASK FOR THE LAST DIGIT 
POSITION THE BINARY NUMBER FOR 
THE NEXT OCTAL DIGIT 



;MASK OUT ALL JUNK 
MAKE THIS CHAR. ASCII 
GO PUT IT IN THE DATA TABLE 
RESERVE DATA TABLE 



f^B Pli ta-FEB'T? 15:08 



HQ' 



Ol-flflR-77 14:45 PflGE 84 
SINGLE LENGTH BINfVTY TO XTM. flSCIZ ROUTINE 

.SBTTL SINGLE LENGTH BINARY TO OClfL ASCIZ ROUTINE 

; t«tf#llMi«MMI IM il»MII»M M »IMMIII«f«#«»«ttttft<HHHHHH*Mt»Wi«t«t 

*M§.J9yTINE HILL COWVERT ft Ib-BIT UNSIGNED BINRRY NUMBER TO RM 
«UNSIGNEO OCTRL ASCIZ NUMBER. 
»CRLL 

* NOV NUNBER^SP} ;; PUT BINARY NUMBER ON THE STACK 

» — 

» 



NOV NUHBER^SPJ 
JSR PC.SieB20 
RETURN 



013024 Dlbb3? 000002 013054 ISB20: NOV 

013032 0127% 013054 NOV 

013038 004737 012704 JSR 

013042 Ob27l& 000005 ADD 

0130% 0126&6 000002 NOV 

0130S2 000207 RTS 

013054 000000 000000 IS: .UORO 



2(SP).1S 

•ll.-fSP) 

PC.ilSDBSO 

•SICSP) 

(S^)+,2(SP) 

PC 

0,0 



SS OF 1ST ASCIZ CHAR. IS ON THE STACK 



:SAVE THE BINARY NUMBER 
;SET POINTER 

;CALL DOUBLE LENGTH CONVERT ROUTINE 
;ONLY AaOU SIX CHARACTERS 
PICKUP POINTER 
; RETURN 



f1filrCCC-ll-02Lfl£-B fIflCYli c7ilD0f>i 

DZLflEB.PU 28-fEB-77 i5:08 



Dl-f«R-77 14:45 

TRflp oeojoeR 



10' 



PAGE 85 



Q130&0 
Oi306H 
013Q70 
013074 
01307b 
0131QP 
0131(W 
013108 
013110 
013114 
01311& 
013120 
013122 
D13124 
013130 



01b6% 
04271b 

m 



0100% 



luogo 

022700 
003002 

gogooo 

00077b 
008300 
OlbOOO 
000200 



000002 
000020 
01307b 



000002 
000044 

013144 



.S8TTL TfWP DECODER 

*THIS ROUTIfC WILL PICKUP Ti€ LOWER BYTE OF T« "TRAP" INSTRUCTION 
ftflrC USE IT TO irCEX THROUGH THE TRRP TABLE FOP THE STPRTIN6 OOORESS 
»0F THE^^I^ ROUTINE. T^CN USING nC ROORESS OBTRirCO IT UILL 



♦GO TO 
STRAP: 



IS: 



NOV 

BIG 

NOV 

RTI 

NOV 

NOV 

TST 

NOVB 

CHP 

BGT 

HALT 

BR 

ASL 

MOV 

RTS 



JTINE. 



2(SP).-(SP) 
•20, (SP) 
•1S|-(5P) 

RO.-(SP) 

2(SP),R0 

-(RO) 

(ROKRO 

•STEWI.RO 

.+b 

.-2 
RO 

STRPAO(RO).RO 
RO 



AS5UNE THE STATUS OF 

i^I?^"^' 
SET THE NEW STATUS 
SAVE RO 

GET TRAP ADDRESS 
mCKUP BY 2 

GET RIGHT BYTE OF TRAP 

CHECK FOR OUT OF BOUNDS 

BR IF OK 

OUT OF BOUNDS 

HANGUP 

POSITION FOR INDEXING 
INDEX TO TABLE 
GO TO ROUTINE 



013132 011b4b 
013134 Olbbbb 
013142 000002 



013 
013 
013 

m 

013 



44 
% 
50 



5b 0 



3132 
0242 
0632 

0382 



;;THIS IS USE TO HWCLE THE "GETPRI" HACRO 



$TRAP2: NOV (SP),-(SP) 
000004 000002 NOV 4(SP),2(SP) 

RTI 

.SBTTL TRAP TABLE 



;HOVE THE PC DOWN 
nOVE THE PSU DOWN 
RESTORE THE PSW 



:»THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;»BY THE "TRAP- INSTRUCTION. 



ROUTINE 



iTRPAC: 



.WORD 
STYPE 
STYPOC 

STYPOS 



STRAP2 

CAL 'TYPE 
CALLsTYPOC 

CAa=TYPDS 



RAP+1( 
RAPiSC 

TRAP+5( 



04M01) TTY TYPEOUT ROUTINE 

04H02) TYPE OCTAL NUHBER (UITH LEADING ZEROS) 



04405) TYPE DECINAL NUMBER (UITH SIGN) 



013180 
013182 
0131b4 
Ol31b6 
013170 
013172 
013174 
013178 
013200 
013202 



011882 
012002 
012276 
010148 
010204 
0115% 
011502 
01 1034 
011400 
0li4i0 



SROCHR 
SROLIN 



^G 

SRESREG 

SPRHDR 

SPRINT 

SLOAD 

SHLOAO 

SCNLO 



CALLsROCtfl 

CALLsROLIN 

CALL^RQOEC 

CAa=SAvfi£G 

CALLs^SREG 

CALLsPRTJCR 

CAasPRINT 

CAa=LOAD 

CALL=MLOftD 

CALLsCNLOAO 



TRAP<t«( 104408) 
TRAP+7( 104407) 
TRAP410( 104410) 
TRAP+1 1(104411) 
TRAP-»12( 104412) 
TRAP413( 104413) 
TRAP414( 104414) 
TRAP+15( 104415) 
TRAP-H8( 104418) 
TRAP+17( 104417) 



TTY TYPEIN CHARACTER ROUTINE 
TTY TYPEIN STRING ROUTINE 
READ A DECINAL NUMBER FROH TTY 
SfNt R0-R5 R0UTL4E 
S§TORE IV-RS ROUTINE 
PRINT TEST HEADER 
PRINT ROUTINE 
LOAD CHAR ROUTINE 
MULTIPLE CHAR LOAD 
LOAD CONVERTED NUMBER 



JQ7 
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000044 STEWI=.-STRFfiD " 



' 1*/ 



i,"^->'-' -"-'i^^. tJ^--*'.- -ii*^r'V^:^..>-\''%\'; ^- ; 
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3210 
3216 




3256 oogggg 

C13260 00077S 



KQ7 

0H1flR-77 m:45 PflGE 87 
POICR OOUh MC UP ROUTINES 

.SBTTL POUER OOUN MO UP ROUTIfCS 



013350 
000340 



00002H 
000026 



1^ 



DOM rout" 
NOV 



165676 
Q133SH 
013262 



000024 



NOV 
NOV 
NOV 
NOV 

)V 



NOV 

NOV 

MOV 

MOV 

HflLT 

BR 



•SILLUP.aiPHRVEC ;iSET FOR FAST UP 
•340.9lPURVEC^2 ;:PRI0:7 

RO on STACK 
Rl ON STACK 
K ON STACK 

PUSH R5 ON STACK 
PUSH 9SUR ON STACK 
— ' SP 

UP VECTOR 



Rl -(§») 
R2,-(SP) 

R4 -(§>) 
RS!-(SP) 
KHR.-(SP) 



.-2 



;;HANG UP 



U12737 013350 000024 

013706 013354 

agQ37 013354 

005237 013354 
001375 

>77 165630 



IroUER UP ROUTINE 



2604 
2603 



iPURUP 



IS: 



013210 000024 
12737 000340 000026 
104401 
015215 
000002 

000776 
QQOOOO 



SPURNG: 
SILLUP: 
SSPVR6: 



NOV 
NOV 
CLR 
INC 
BNE 



)V 
NOV 
NOV 

!^ 
NOV 

NOV 
NOV 

!ho^ 

RTI 

HALT 

BR 

0 



•SILLUP.aiPURVEC 
SSAVRb,§P 

SP)+ R4 
SP)+,R3 
g)+ R2 
Rl 



•vurOn ' 



.«^w...9tPURVEC 
•3M0,atraRVEC42 

PURHSG 



.-2 



3TAa( INTO asuR 

»ta5< into rs 



:SET FOR FAST OOUN 
6ET SP 

HAIT LOOP FOR THE TTY 
WAIT FOR THE INC 
OF HORD 

POP STACK INTO R4 
TACK INTO R3 
TAS( into R2 

taS( into Rl 

^W0:7 
pS^fai^ H^S^' 




DOHH VECTOR 



;THE POUER UP SEi 
BEFORE THE POUL 
PUT THE SP HERE 



NCE HAS STARTED 
OOUN UAS CONPLETE 



rwircec-ii-0ZLfl£-^ mcvii 27ciQ0b) 

OZLPeB.Pii 20-FEB-77 15:08 



003262 



1 1 1 1 1 1 



1 1 1 1 1 1 



1 1 1 1 1 1 



I ri 1 1 1 



1 1 1 1 1 1 
1 1 1 1 1 1 



1 1 1 1 1 1 



000000 



1 1 1 1 1 1 




004060 
00411M 




0 05226 
177777 

'10 



1 1 1 1 1 



1 1 1 1 1 1 



000000 




L07 

01-f«R-77 14:45 PPGE 88 
POICR DOWN AND UP ROUTIfCS 

; ///////////////////////////////////////////////////////////////// // /// 
.S8TTL TEST flOORESS TABLE 

;T»C PRINTINC TEST SEQUENCE STARTS HITH TEST20 
|tO RENOVE a TEST FRON THE PROGRAH - 
DEPOSIT ZRO FOR T»C TEST AOQRE^ IN THIS TABLE 

•AHINUS ONE (-1) IN TIC TAttJlffilCATES THE DC OF THE PRINTING SEQUENCE 

;////////////////////////////////////////////////////////////////////// 



TAT: 



TESTO 

TESTl 

TEST2 

0 

0 

0 

0 

8 

0 
0 
0 
0 
0 
0 
0 

TEST2C 




• Mill 



i I I 1 I I 



TEST32 
TEST33 
TEST34 
TEST35 
TEST36 
TEST37 
TBTHO 
TOT41 
tBT42 
TEST43 
TEST44 
TEST45 




TEST51 



. T£ 
TEST54 



mo: 



PlflIfCCC-ll-02U€-B HftCYll 27( 100b) Ql-l1flR-77 14:45 PAGE 8S 
OZLflEB.Pll 28-Ft5-77 15:08 TEST (VORESS TABLE 



000000 
000000 




000000 

006514 
006534 



0 
0 
0 

TESTbO 

TESTbl 

TEST62 

TESTb3 

TEST64 

0 

0 

0 

0 

0 

0 

0 

0 

0 

TESTTb 
TEST77 



;TEST55 
TESTSb 
TEST57 



TEST65 
TESTb6 
TEST67 
TEST70 
TEST71 
TEST72 
TEST73 
TEST7M 
TEST7S 



8 




1H63S 
14671 
014713 



;////////////////////////////////////////////////////////////////////// 
.SBTTL ERROR MESSAGE ADDRESS TABLE 

;////////////////////////////////////////////////////////////////////// 
ENAT: ERRl 




ERR23 
ERR24 
ERR2S 
ERRS6 



NO? 

f1flIMDeC-ll-0ZLflE-8 flPCYll 27(l00b) Ol-HflR-77 14:45 PftGE SO 
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0i3b% 
013854 
013661 
013666 
013674 
01; 

oi: 
oi: 
oi: 
oi; 

013736 

oi: 

013766 
013774 
014000 
014006 
01401*? 
01402a 
014030 
014033 

014040 

II- 

01' 
014070 
014076 
014104 

014118 
014117 

nim?4 

<(| 

014220 

0142% 
014254 
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051106 
" »103 




04 

051440 

080134 
OGCJIS? 
0H2S22 
047516 
^124 
020122 
030122 

Sll 

04,_: 
042524 
042523 



052105 
OH^ 
00Q12H 

0201OT 
0%103 

042101 
020124 

S3101 
1105 
0%103 




020124 
02C122 
020124 



05450 4 
020054 
020122 

020122 
047516 
040505 

020131 
042523 
042524 
047522 
040505 

020122 
043101 
042522 
047111 



•////////////////////////////////////////////////////////////////////// 
.S8TTL ERROR NESSAGES 

;////////////////////////////////////////////////////////////////////// 

ERRl: .A5CIZ /ERROR CLEAR, POHER OFF/ 



ERR2: .RSCIZ /READY SET, POUER OFF/ 



ERRS: .ASCIZ /ERROR CLEAR, PRINTER OFF LINE/ 



ERR4: .ASCIZ /READY SET, PRINTER OFF LINE/ 



ERRS: .ASCIZ /ERROR SET, PRINTER ON LINE/ 



ERR6: .ASCIZ /READY CLEAR, PRINTER ON LINE/ 



ERR7: .ASCIZ /ERROR CLEAR, PAPER OUT/ 



ERRIO: .ASCIZ /READY SET, PAPER OUT/ 



ERRU: .ASCIZ /ERROR DID NOT CLEAR/ 



ERR12: .ASCIZ /READY NOT SET AFTER ERROR CLEARED/ 



ERR13: .ASCIZ /ERROR SET AFTER RESET INSTR/ 
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EfRIH: .(SCIZ /fOCY CL0W AFTER lESET IfCIR/ 



1 EmiS: .ASCI2 A&Df* SET AFTER CMR LOROED/ 



.ASCIZ /ERROR SET AFTER CHRR LOROED/ 



.R5CIZ /REROY fCVER SET, CHRR LOROED/ 



.RSCIZ /ERROR SET, INTERRUPT TEST/ 



.RSCI2 /READY CLEAR, INTERRUPT TEST/ 



Ufe ERR22; .ASC12 /PRINTER INTER flfiOVE LEVEL 3/ 
h 



ilB ERR23: .ASCIZ /NO PRINTER INTER flELOH LEVEL M/ 
122 
122 
127 

ERR2S: .ASCIZ /PRINTER ERROR BEFORE CHAR LOAD/ 



.ASCII /PRINTER NOT READY/ 



OH04MG 

051105 0H14M0 



05211& £RR2Ci: 
051122 
05210b 
040510 



.ASCIZ /PRINTER ERROR AFTER CHRR LORD/ 



C09 



15I^€e>'i-oaJ€-B nftCYll 27 (i 00b) OI-HPR-T? IH-.^S PftGE S2 
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0i47H2 020122 047514 0421D1 
CIMTSO 000 



.///////////////////////////////////////////////////////////// ^//////// 



014751 
014756 
0147M 
gi47b7 
01477H 

°om 

OlSQU 
01S016 
01S02H 





0'5052 
01505M 
0l50b2 
015063 
015070 
01507b 



01 _ 
Q2012H 
051105 



000043 
020054 



047522 
020054 



11440 
>1516 
>1505 



U20040 
020122 
000040 



047503 
020123 

020040 

051505 
041115 
000 

000012 
020124 



.SBTTL PROGmn HESSMES 

;////////////////////////////////////////////////////////////////////// 
COLUHN: .flSCIZ <CRLF>/I COLUWIS = / 

SaTST: .fiSCIZ <CRLF>/SELECT TEST • / 
TSTNO: .ftSCIZ <LF><LF>/TEST NUMBER / 



COLW: .ftSCIZ / C0LUft<S/<LF> 

ETSTNO: .ftSCIZ <CRLF>/TEST •/ 

050040 03b503 PCNSG: .ftSCIZ /, PC=/ 

ERR: .ftSCIZ /, ERROR •/ 

ERRS: .ftSCIZ /, / 



051105 
000043 
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DOS 






PROGflfW rCSSMES 




PASnSC: 


.ASCIZ 


<LF>/END OF PASS •/ 


03bMM0 


OSnSGl: 


.ASCIZ 


<CRLF>/SHR = / 


05X05 


0SHSG2: 


.ASCIZ 


/ NEW s / 


nutcni 

QH14H0 
052516 


umSG: 


.ASCIZ 


/MAITING, TYP SPACE TO CONTINUE/<CRLF> 








020122 


TCHAR: 


.ASCIZ 


/CHAR = / 


0H2527 


PURHSG: 


.ftSCIZ 


<CRLF>/POHER/<CRLF> 


0H251M 
04H515 
000 
052116 


NCnSG: 


.ASCIZ 


<LF>/N0 CONSOLE TEfWINAL/<LF> 


HANnSG: 


.ASCII 


/PRINT SPEED MANUAL TIHING/<CRLF> 



052111 020110 



052116 
0H2105 
000 
0H7522 

04251b 
052516 
053440 
000 



.ASCII /PUT SWITCH 12 UP TO START TIHING/<CRLF> 



.ASCIZ /PUT SWITCH 12 DOWN AT END OF 1 niNUTE/<CRLF> 



T64NSC: .ASCIZ /ENTER PATTERN PER LISTING OR D0CUHENT/<CRLF> 



TH08EL: .ASCIZ <7><7><CRLF> 

pSRT .ASCIZ <CRLF>/PRINT SPEED IS / 



PRSP2: .ASCIZ /APPROX. / 

PRSP3: .ASCIZ / LINES/<57>/NINUTE , WITH / 
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015737 
015744 
015752 
Ol57bO 
Ol57bb 
015774 
015777 
01Ei004 
01_ 

16014 
_1_.__ 
016030 
016035 
016042 

01^ 
016067 
016074 
016102 
016110 
016116 
016124 
016132 
016134 
016142 
016150 
016156 
016164 
016172 



lOOlU 
117 
051505 
050040 
SHK 
047117 
100105 
055 
000040 



026455 
123 
051117 

^2105 
1S2H 




C1 S 3 S 23 



oooeoo 

047516 
047510 
052040 
020107 
040514 
000 
016174 



026113 
047524 





044440 
020123 
K1120 
047S24 
042523 
052111 

0%440 
020104 
0%511 
053101 
0%102 



8^ 



_10 
111 



J 116 
122 
0200% 
043117 
0>I2516 



[7 
100116 

051440 
044522 
052040 

052040 

"1101 

041524 

0S1040 
042522 
052116 
020117 
047111 

026455 



000 
043040 
042506 



041516 
0200% 
051505 
020106 
020124 
044103 

052105 
043117 
047111 
044501 
100105 



EDS 

Ol-flflR-77 14:45 PflGE 94 
PROGRAH ICSSAGES 

PRSP4: .ftSCIZ / CHflRS/<57>/LlNE/<CRLF> 

TOHSCO: .flSCIZ /TURN POWER OFF & SET OFF LirC/<CRLF> 

TOHSCl: .flSCIZ /OK, TURN POWER ON/<CRLF> 

T0HSG2: .PSCIZ /OK, SET PRINTER TO ON-LINE/<CRLF> 

T0HSG3: .fiSCIZ /OK, TRY PflPER OUT SHITCH/<CRLF> 

T0flSG4: .flSCIZ /OK, RESTORE PRINTER TO ON-LlNE/<CRLF> 

TlMSGl: .ftSCIZ / / 

T1MSG2: .flSCIZ / INCH FORM FEED /<CR> 

T1MSG3: .ftSCIZ /SET FORH FEED SWITCH TO / 

T1WSG4: .flSCIZ / INCHES & DEPRESS TOF RESET SWITCH/<CRLF> 



T2EH: .flSCIZ /NO METHOD OF TIMING flVflILflBLE/<CRLF> 



.EVEN 



OZWEB.Pll 28-FEB-rr 15:08 PROORflH ItSSflGES 



Foa 




K 

016216 
OlSIs 
01623? 
0162% 



020122 
020073 
050123 
000 



.1 

OHOSOH 
052103 
0H15O1 




Tfla64: .flSCIZ /YOU FORGOT TO ENTER DflTfl; CTL-SPftCE/<LF> 



0H052M 
026514 
005105 



; OPEN-ENDED TABLE FOR TEST 6M DflTfl. 



000001 



.END 
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G08 



ACCEPT 

mw- 

BITOO s 
BITOl = 
8ITQ2 s 
BIT03 s 
BITOM r 
BIT05 ' 
BIT06 - 
BIT07 = 
BIT08 
BITOT = 
BITl = 
BITIO = 
BITll = 
BIT12 = 
BIT13 = 
BIT14 = 
8IT15 = 
BITS = 
BIT3 = 
BIT4 - 
BITS = 
BIT6 = 
BIT7 = 
BITS = 

Birq = 

BPTVEC= 

CHACTR 

CHECK = 

CHLD 

CKFLAG 

CMLOflO= 

CNTR 

COLCTR 

COLMN 

COLUMN 

CONTRL 

CR = 

CRLF = 

C58R 

CTLA 

CTLB 

DC I 

DOISP = 

DISPLA 

DISPRE 

osnsGi 

OSM = 

DUNCX 

DUNPAT 



QOUIO 

yOOuOI 
QQQCDl 



000010 
000020 
000040 
000100 
000200 
000400 

000002 



010000 
020000 
040000 
100000 
000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
000014 
OObSlO 
104420 
005440 
001155 
104417 
QObSOb 

0A-J31 
014751 
001220 
000015 
000200 
00U3E) 
0Qb3% 
00b3E»2 
006556 
177570 
001144 
000174 
015122 
015132 
177570 
006454 
006446 



EMAT 



Egg, 
ERRS 
ERRVECs 
ERRl 
ERRIO 
ERRll 
ERR12 
ERR13 
ERR14 
ERR15 
ERR16 
ERR17 
ERR2 
ERR20 
ERR21 
ERR22 
ERR23 
ERR24 
ERR25 
ERR26 
ERR3 
ERR4 
ERRS 
ERR6 
ERR7 
ETSTNO 
EXIT 
FF = 
FSTPAD 
FSTSAD 
HOLD = 
HT = 
lOTVECs 
KYBOF 
KYBOST 
LDPTR 
LF s 
LK5 
LKSRV 
LOAD = 
LPB 
LPCTR 
LPKB 
LPKS 
LPS 

HANMSG 
niNCNT 
riLOAO = 
NCKSG 
NUMLP 



013556 

-mi 



015063 
015076 
000004 
0.3632 
014117 
014144 
014170 
014232 
014266 
014324 
014360 
014414 
013661 
014451 
014503 
014S37 
014573 
014632 
01%71 
014713 
013706 
013744 
014000 
014033 
01407C 
015044 
006644 
000014 
001126 
001124 
104421 
000011 
000020 
007140 
007442 
011040 
000012 
001140 
006566 
104415 
001116 
001132 
001112 
001110 
001114 
015253 
006612 
104416 
015225 
001122 



NXTAOR 011142 

PCnSG 015054 
PIRO ' 177772 
PIROVEs 000240 
PLKS 001134 
PLOAO 011044 
PRINT = 1( 
PROPAT " 
PRPAT 




PRSPl 015470 

PRSP2 015511 

PRSP3 015522 

PRSP4 015551 



015511 
015522 
. 015551 
PRTHORs 104413 
PRTSET 005442 
PRO = 000000 
= 000040 
= 000100 

= 000200 
= 000240 



PRl 
PR2 
PR3 
PR4 
PRS 
PR6 

PR7 - 
PS = 177776 
PSH = 177776 
PURHSG 015215 
PURVECs 000024 
OUOl 001764 
QU02 002032 
ROCHR = 104406 
ROOeC = 104410 
ROLIM = 104407 
REPORT 010044 
RESREGs 104412 
RESTRT 001210 
R£SVEC= QOOOlO 
RSTAOR 011316 
R6 SX000006 
R7 SX000007 
SAVREG: 10M411 
SELECT 006752 
SaTST 014767 
SERSU 001120 



SLOAO 
SPD 
SP3 
SROCI 



011206 
003500 
005434 
006614 



STACK = 001100 
START 001174 
STARTX 001226 
STKLMTs 177774 



5TR0« 
jVTST 



SUREG 

SUO ' 

SHOO = 

SUOl = 

SU02 - 

SU03 = 

SU04 = 

SU05 = 

SU06 = 

SH07 = 

SU08 = 

5UOT = 

SUl s 

SUlO = 

sun : 

SU12 - 

SU13 = 

SU14 : 

SUIS = 

SU2 = 

SU3 = 

SU4 = 

SW5 = 

SU6 = 

SH7 = 

sue s 
sus = 

TAeL64 
TAT 

TBITVEr 

TCHAR 

TERR 

TESTO 

TESTl 

TEST2 

TEST20 

TEST21 

TESTZe 

TEST23 

TEST24 

TEST2S 

TEST26 

TEST27 

TESTX 

TEST31 

TEST50 

TEST60 

TEST61 

TEST62 

TEST63 



001152 

000176 
000001 
000001 
000002 
000004 
000010 
000020 

000100 



OQQ 



002000 
004000 
010000 

0 40000 

loggoo 

000004 

"110 



000040 

ggoloo 

000200 
000400 
001000 
016174 
013356 
000014 
015205 
006164 
002254 
003072 
003262 
003614 
003662 
003772 
004060 
004114 
004406 
1770 



005200 
005226 
QK340 
0^40 
005654 
005766 
006050 



TE5T64 

\m 

TKB 

TKS 

TKVEC = 

TLOOP 

TORTN 

TPB 

TPS 

TPVEC = 
TRAPVEs 

TRorc 

TRTVECs 

TSEL 

TSTNO 

Tuoea 

TYPOS = 

TYPE = 

TYPOC = 

TYPOH = 

TYPOS = 

Torc^ 

]^ 

T0MSG3 

T0HSG4 

TinSGl 

T1HSG2 

T1MSG3 

T1HSG4 

T2EM 

T2SP 

TSOni 

T50K2 

T50PCT 

T64nSG 

UIDTH 

umsG 

S8ELL 

SCHECK 

SCNLO 

ICNTLG 

SCNTLU 

SCR 

SCRLF 

SOBLK 

S0B20 

10620 

SOECVL 

SDOAGN 

SOTBL 

lENOAO 



00617M 

m 

001102 
001100 
000060 
001154 
006610 
001106 
001104 

001153 
000014 
007510 
015011 
015%4 
104405 
104401 
104402 
104404 
104403 
015567 

015705 
015737 
015777 
016006 
016035 
016067 
016134 
003400 
005424 
005430 
005422 
015415 
001150 
015144 
001156 
007052 
011410 
012247 
012242 
001164 
001161 
010576 
012454 
012704 
012634 
005332 
010566 
005322 



H08 
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$£f€)CT 

SoPCT 
SERROR 
JERRPC 
JFF 

SFILLC 

SFiaS 

$G£T42 

SHD = 

SHOLD 

SILLUP 

siTEre 



005306) 



007744 
010040 
001166 

SllTl 

000000 
00711S 
013350 
010042 
001162 



SLOAO 

snsuR 

SPftSS 

SPRHOR 

SPRI^fT 

SPURMG 
SPURUP 



011034 

iim 

012254 
001170 
OUOX 
013006 
OIK^ 
005336 
0115% 
011502 
013210 
013344 
013262 



SQUES 001 i&O 

m am 

nOLIN 012002 



tSRVR6 
SSB2D 
SSB20 
ISETUP= 
SSTUP = 
SSVPC = 



8 



101% 
13354 
IZbSO 
013024 
000034 
177777 
000200 



RBS. 016241 



000 
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tSUR = 
ITERfl = 
STKB 
STKS 
STN = 
STfff>UR 

Itp?lg 

ITPS 

STRAP 

STRAP2 

STRP = 

STRPAO 

STSTNH 



162000 
QQ0044 
001102 
001100 



mi 104 

013060 
013132 
000022 
013144 
001146 



ITTYIM 012236 
STYPEC 0103H4 

Itypon 

QlQUk 



SOFILL 011031 

016241 



